File Coverage

blib/lib/L.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	6	8	75.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	34	37	91.8

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

our $VERSION = '0.01';

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__