File Coverage

blib/lib/Namespace/Pollute.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch	6	12	50.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	27	35	77.1

package Namespace::Pollute;
{
  $Namespace::Pollute::VERSION = '0.002';
}
# ABSTRACT: Loads and imports the default exported symbols of a list of modules

use Exporter;
@ISA = qw(Exporter);

sub import {

	shift;    #-- The first one is our own class name

	if ( $_[0] eq '-verbose' ) {
		$VERBOSE = 1;
		shift;
	}

	foreach my $module (@_) {
		eval "require $module";

		if ( eval { $module->isa('Exporter') } ) {
			print "ISA Exporter: $module\n" if $VERBOSE;

			@EXPORT = @{"${module}::EXPORT"};

			$module->import(@EXPORT);

			foreach my $symbol (@EXPORT) {
				print "\tExporting: $module::$symbol\n" if $VERBOSE;
				Namespace::Pollute->export_to_level( 1,, ($symbol) );
			}

		} elsif (
			eval {
				$module->can('import');
			}
		  )
		{
			print "Calling $module->import\n" if $VERBOSE;

			#-- Things that have an import sub:
			$module->import;
		}
	}

}

1;

__END__