File Coverage

/.cpan/build/Pollute-0.07-yFsksZ/blib/lib/Pollute/Persistent.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	42	42	100.0

package Pollute::Persistent;

use 5.005;
use strict;
no strict 'refs';
# no warnings;	# all those subroutine redefinitions :)
use vars qw/$Package $VERSION/;

$VERSION = '0.07';

sub import{
	my ($Package) = caller;
	my %Before = map {($_,1)} keys %{"${Package}::"};

	*{"${Package}::import"} = sub {

		my %Symbols;	# will be remembered in closure
		foreach (keys %{"${Package}::"}){
			$Before{$_} and next;
			$Symbols{"${Package}::$_"} = $_ ;
			# print "will set *{\"PACKAGE::$_\"} to *{${Package}::$_} \n";
		};
		undef %Before;
		*{"${Package}::import"} =
		    sub {	# may give a redef. warning
			($Package) = caller;
			foreach (keys %Symbols) {
				# print "setting *{\"${Package}::$Symbols{$_}\"} = *{$_}\n";
				*{"${Package}::$Symbols{$_}"} = *{$_};
			};
		    };
		goto &{"${Package}::import"};
	};
};

1;
__END__