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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dautouse.t12 require autouse;
14 "autouse"->import('List::Util' => 'List::Util::first(&@)');
19 "autouse"->import('List::Util' => 'Foo::min');
21 ok( $@, qr/^autouse into different package attempted/ );
23 "autouse"->import('List::Util' => qw(max first(&@)));
35 use autouse 'Carp' => qw(carp croak);
49 # Test that autouse's lazy module loading works. We assume that nothing
51 use autouse 'Text::Soundex' => qw(soundex);
H A Dautouse.pm1 package autouse; package
6 $autouse::VERSION = '1.03';
8 $autouse::DEBUG ||= 0;
18 my $class = @_ ? shift : 'autouse';
33 print "autouse called from $callpkg\n" if $autouse::DEBUG;
47 croak "autouse into different package attempted"
61 if $autouse::DEBUG;
88 autouse - postpone load of modules until a function is used
92 use autouse 'Car
[all...]

Completed in 15 milliseconds