File Coverage

blib/lib/CURRENT.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	16	33	48.4

package CURRENT;

use strict;
use vars qw( $VERSION );
use Carp;

$VERSION = '0.01';

sub AUTOLOAD {
    my ($self) = @_;

    my $caller_class = caller;
    my ($wanted_method) = $CURRENT::AUTOLOAD =~ m{.*::(.*)}g;

    my $object_method = $caller_class->can($wanted_method);
    goto $object_method if $object_method;

    if ( my $autoload = $caller_class->can('AUTOLOAD') ) {
        require B;
        my $autoload_class = B::svref_2object($autoload)->GV->STASH->NAME;

        no strict 'refs';
        ${"${autoload_class}::AUTOLOAD"} = "${caller_class}::$wanted_method";

        goto $autoload;
    }

    croak(
        qq{Can't locate object method "$wanted_method"},
        qq{ via package "$caller_class"},
    );
}

1;
__END__