File Coverage

blib/lib/Class/LazyLoad/Functions.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	12	12	100.0

package Class::LazyLoad::Functions;

use Class::LazyLoad;

{
    my %is_exportable = map { $_ => undef } qw(
        lazyload
        unlazyload
        lazyload_one
        init_lazyloads
    );

    sub import
    {
        shift;
        my $pkg = (caller)[0];

        foreach (grep exists $is_exportable{$_}, @_)
        {
            local $^W = 0;
            *{ $pkg . "::" . $_ } = \&{ 'Class::LazyLoad::' . $_ };
        }
    }
}

1;

__END__