Exporter.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
my $test = 1;
# You have to do it this way or VMS will get confused.
$test++;
return $ok;
}
print "1..28\n";
require Exporter;
BEGIN {
# Methods which Exporter says it implements.
);
}
require Exporter;
# Make sure Testing can do everything its supposed to.
}
%EXPORT_TAGS = (
);
$VERSION = '1.05';
my $ok = 1;
}
my $got = eval {&lifejacket};
# The string eval is important. It stops $Foo::{is} existing when
# Testing->import is called.
"Import a subroutine where exporter must create the typeglob" );
'import by symbols' );
map { @$_ } @{$Testing::EXPORT_TAGS{@tags}}),
'import by tags' );
'import by regex');
'deny import by regex');
$VERSION = 0;
$VERSION = 0;
my $warnings;
BEGIN {
}