File Coverage

blib/lib/Patterns/UndefObject/maybe.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Patterns::UndefObject::maybe;

=head1 NAME

Patterns::UndefObject::maybe - Install a 'maybe' top lwvel package

=head1 SYNOPSIS

    use Patterns::UndefObject::maybe;

    my $name = $user_rs->maybe::find(100)->name
      || 'Unknown Username';

=head1 DESCRIPTION

See L for project details.  This package does
everything that those documents describe, but instead if doing it via
an importable method (Maybe) or via a factory method, it installs a
top level 'maybe' namespace.  You may find this approach more appealoing,
or you might find it to be a namespace polluter.  You decide.

=head1 AUTHOR

See L

=head1 COPYRIGHT & LICENSE

See L

=cut

package maybe;

use Patterns::UndefObject;

sub AUTOLOAD {
  my $invocant = shift;
  my ($method) = our $AUTOLOAD =~ /^maybe::(.+)$/;
  return Patterns::UndefObject->maybe($invocant->$method(@_));
}

1;