File Coverage

blib/lib/namespace/allclean.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	26	26	100.0

package namespace::allclean;
use strict;
use warnings;

our $VERSION = "0.01";

use B::Hooks::EndOfScope;
use namespace::clean;

sub import {
    my ($class, %args) = @_;
    my $cleanee = exists $args{-cleanee} ? $args{-cleanee} : scalar caller;

    on_scope_end {
        my $subs = namespace::clean->get_functions($cleanee);

        my @clean = keys %$subs;

        namespace::clean->clean_subroutines($cleanee, @clean);
    };
}

1;
__END__