Searched refs:lifejacket (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DExporter.t53 @EXPORT = qw(lifejacket is);
62 sub lifejacket { 'lifejacket' } subroutine
92 ::ok( defined &lifejacket, 'simple import' );
94 my $got = eval {&lifejacket};
97 ::ok ( $got eq 'lifejacket', 'and that it gave the correct result')
98 or print STDERR "# expected 'lifejacket', got " .
131 Testing->import(qw(!lifejacket));
133 ::ok( !defined &lifejacket, 'deny import by !' );
150 ::ok( !defined &lifejacket, 'furthe
[all...]

Completed in 15 milliseconds