File Coverage

blib/lib/L.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	7	8	87.5
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	38	40	95.0

package L;
use 5.008_001;
use strict;
use warnings;

use version 0.77; our $VERSION = version->declare("v1.0.1");

use Carp ();
use Module::Load ();

{
    package
        UNIVERSAL;

    our $AUTOLOAD;
    sub AUTOLOAD {
        return if $AUTOLOAD =~ /::DESTROY$/;
        if (my ($module, $method) = ($AUTOLOAD =~ /^(.*)::(.*?)$/)) {
            if ($module eq 'main') {
                Carp::croak(qq{Undefined subroutine &main::$method called});
            }

            Module::Load::load($module);

            my $func = $module->can($method)
                or Carp::croak qq{Can't locate object method "$method" via package "$module"};

            $func->(@_);
        } else {
            die "WTF? $AUTOLOAD";
        }
    }
}

1;
__END__