use PerlX::Perform;
use return::thence;

sub my_find_or_create {
  # ...
  perform { return::thence $_ } wherever $self->find_by_something(@args);
  # ...
}