File Coverage

blib/lib/modules.pm

Criterion	Covered	Total	%
statement	30	40	75.0
branch	7	16	43.7
condition	1	3	33.3
subroutine	7	7	100.0
pod			n/a
total	45	66	68.1

package modules;

our $VERSION = '0.04';

our $DEBUG = 0;

use Carp;

our $force = 1;

sub import
{
	my $package = shift;

	my $context = scalar caller;

	my @failed;

		for ( @_ )
		{
			if( /^([\-\+])force$/ )
			{
				$force = ($1 eq '-') ? 0 : 1;

				warn "force turned $force\n" if $DEBUG;

				next;
			}

			if( ref( $_ ) eq 'HASH' )
			{
				foreach my $key ( keys %$_ )
				{
					printf "Hash: LOADING %s with %s\n", $key, $_->{$key} if $DEBUG;

					eval "package $context; use $key ".$_->{$key};

					if( $@ )
					{
						push @failed, $key;

						carp "Can't use module '$key'. $@";
					}
				}

				next;
			}

			eval "package $context; use $_";

			if( $@ )
			{
				push @failed, $_;

				carp "Can't use module '$_'. $@";
			}
		}

	if( @failed && $force )
	{
		use CPAN;

		CPAN::Shell->install( @failed );
	}
}

# Preloaded methods go here.

1;
__END__