Whenever I look at Patterns::UndefObject I want it to act more like this instead.

maybe.pl

#!/usr/bin/env perl                                                                                                                                                                                            

{
  package maybe;
  use overload 'bool' => sub { 0 };
  sub new { bless \$_[0] }
  sub DESTROY {}
  sub AUTOLOAD { shift }
}

sub maybe (&) {
  my ($code) = @_;

  no dying;

  return hook_run(
    before => sub { },
    run => $code,
    after => sub { return maybe->new if died() }
  );
}



use Maybe qw(maybe);

my $user = maybe { User->find(100) };