File Coverage

blib/lib/Devel/Loading.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch	1	2	50.0
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	12	18	66.6

package Devel::Loading;
our $VERSION = '0.01';


sub import {
    my $class = shift;
    my $code  = shift;

    if ($code) {
        my $old_code = $code;
        $code = sub {
            local $_ = $_[1];
            $old_code->($_[1]);
            return undef;
        };
    }
    else {
        $code = sub {
            my @caller = caller;
            warn "Loading $_[1] at $caller[1] line $caller[2].\n";
            return undef;
        };
    }

    unshift @INC, $code;
}

1;

__END__