File Coverage

blib/lib/Exporter/AutoClean.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	29	29	100.0

package Exporter::AutoClean;
use strict;
use warnings;
use B::Hooks::EndOfScope;

our $VERSION = '0.01';

sub export {
    my $class   = shift;
    my $pkg     = shift;
    my %exports = @_;

    no strict 'refs';
    while (my ($name, $code) = each %exports) {
        *{"${pkg}::${name}"} = $code;
    }

    on_scope_end {
        for my $name (keys %exports) {
            delete ${ $pkg . '::' }{ $name };
        }
    };
}

1;

__END__