File Coverage

lib/Perlmazing.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	10	12	83.3
condition	3	6	50.0
subroutine	6	6	100.0
pod			n/a
total	53	59	89.8

package Perlmazing;
use Perlmazing::Engine;
use Perlmazing::Engine::Exporter;
use Perlmazing::Feature;
use Win32::Symlinks;
our $VERSION = '2.0006';
our @EXPORT = qw(pl dumped define time localtime gmtime mkdir rmdir sleep stat);
our @found_symbols = Perlmazing::Engine->found_symbols;
our %EXPORT_TAGS = (
    all => \@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 (@_) {
		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 ":$_"} keys %EXPORT_TAGS) or (grep {$i eq $_} @found_symbols);
		}
		if (@YES and @NO) {
			@EXPORT = @YES;
		} elsif (@YES) {
            for my $i (@YES) {
                push (@EXPORT, $i) unless grep {$i eq $_} @EXPORT;
            }
		}
	}
	$self->SUPER::import;
}

1;

__END__