Lines Matching refs:lifejacket
53 @EXPORT = qw(lifejacket is);
62 sub lifejacket { 'lifejacket' }
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, 'further denial' );