Class::LazyLoad::Functions - Class::LazyLoad::Functions documentation

Class-LazyLoad documentation Contained in the Class-LazyLoad distribution.

Index

Code Index:

NAME

Top

Class::LazyLoad::Functions -

SYNOPSIS

Top

DESCRIPTION

Top

BUGS

Top

None that we are aware of. Of course, if you find a bug, let us know, and we will be sure to fix it.

CODE COVERAGE

Top

We use Devel::Cover to test the code coverage of our tests, see the CODE COVERAGE section of Class::LazyLoad for more information.

AUTHORS

Top

Rob Kinyon, <rob.kinyon@gmail.com> Stevan Little, <stevan@iinteractive.com>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2004 Rob Kinyon and Stevan Little

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Class-LazyLoad documentation Contained in the Class-LazyLoad distribution. 
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__