File Coverage

lib/Perlmazing.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	10	12	83.3
condition	2	3	66.6
subroutine	5	5	100.0
pod			n/a
total	50	54	92.5

package Perlmazing;
use Perlmazing::Engine;
use Perlmazing::Engine::Exporter;
use Perlmazing::Feature;
our $VERSION = '1.2814';
our @EXPORT;
our @found_symbols = Perlmazing::Engine->found_symbols;

Perlmazing::Engine->precompile;

Perlmazing::Engine->preload(
	qw(

	)
);

no warnings 'redefine';
sub import {
	my $self = shift;
	my @call = caller;
	Perlmazing::Feature->import;
	warnings->import(FATAL => qw(closed unopened numeric recursion syntax uninitialized));
	if (@_) {
		@EXPORT = ();
		my (@YES, @NO);
		for my $i (@_) {
			if ($i =~ /^!(.*?)$/) {
				push @NO, $1;
			} else {
				push @YES, $i;
			}
		}
		for my $i (@YES, @NO) {
			croak "Symbol '$i' is not exported by the Perlmazing module" unless grep {$i eq $_} @found_symbols;
		}
		if (@YES and @NO) {
			@EXPORT = @YES;
		} elsif (@YES) {
			@EXPORT = @YES;
		} else {
			for my $i (@found_symbols) {
				push (@EXPORT, $i) unless grep {$_ eq $i} @NO;
			}
		}
	} else {
		@EXPORT = @found_symbols;
	}
	$self->SUPER::import;
}

1;

__END__