File Coverage

blib/lib/Class/Dynamic.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	3	8	37.5
condition	1	3	33.3
subroutine	3	3	100.0
pod			n/a
total	28	39	71.7

package Class::Dynamic;

use 5.006;
our $VERSION = '1.01';

sub UNIVERSAL::AUTOLOAD {
    no strict;
    my $obj = $_[0];
    my $class = ref $obj || $obj;
    my @foo = @{$class."::ISA"};
    $UNIVERSAL::AUTOLOAD =~ /(.*)::(.*)/;
    my $package = $1;
    my $method = $2;
    my $sr;
    while (@foo) {
        last if ($sr = shift @foo) eq "CODE";
    }
    return unless ref $sr;
    my $rv = $sr->($obj, $method);
    $UNIVERSAL::AUTOLOAD =~ s/.*::/${rv}::/;
    if (! defined &$UNIVERSAL::AUTOLOAD) {
        require Carp; import Carp;
        return if $method eq "DESTROY";
        croak( qq{Can't locate object method "$method" via package "$rv"
        (perhaps you forgot to load "$rv"?)});
    } else {
        goto &$UNIVERSAL::AUTOLOAD;
    }
}

# Preloaded methods go here.

1;
__END__