6 unshift @INC, ("./$dir", "../lib");
11 # First we must set up some autoloader files
12 mkdir $dir, 0755 or die "Can't mkdir $dir: $!";
13 mkdir "$dir/auto", 0755 or die "Can't mkdir: $!";
14 mkdir "$dir/auto/Foo", 0755 or die "Can't mkdir: $!";
16 open(FOO, ">$dir/auto/Foo/foo.al") or die;
19 sub foo { shift; shift || "foo" }
24 open(BAR, ">$dir/auto/Foo/bar.al") or die;
27 sub bar { shift; shift || "bar" }
32 open(BAZ, ">$dir/auto/Foo/bazmarkhian.al") or die;
35 sub bazmarkhianish { shift; shift || "baz" }
40 # Let's define the package
45 sub new { bless {}, shift };
51 print "not " unless $foo->foo eq 'foo'; # autoloaded first time
54 print "not " unless $foo->foo eq 'foo'; # regular call
57 # Try an undefined method
61 print "not " unless $@ =~ /^Can't locate/;
64 # Used to be trouble with this
69 print "not " unless $@ =~ /oops/;
72 # Pass regular expression variable to autoloaded function. This used
73 # to go wrong because AutoLoader used regular expressions to generate
74 # autoloaded filename.
76 print "not " unless $1 eq 'foo';
79 print "not " unless $foo->bar($1) eq 'foo';
82 print "not " unless $foo->bar($1) eq 'foo';
85 print "not " unless $foo->bazmarkhianish($1) eq 'foo';
88 print "not " unless $foo->bazmarkhianish($1) eq 'foo';
91 # test recursive autoloads
92 open(F, ">$dir/auto/Foo/a.al") or die;
96 sub a { print "ok 11\n"; }
101 open(F, ">$dir/auto/Foo/b.al") or die;
104 sub b { print "ok 10\n"; }
112 return unless $dir && -d $dir;
113 unlink "$dir/auto/Foo/foo.al";
114 unlink "$dir/auto/Foo/bar.al";
115 unlink "$dir/auto/Foo/bazmarkhian.al";
116 unlink "$dir/auto/Foo/a.al";
117 unlink "$dir/auto/Foo/b.al";
118 rmdir "$dir/auto/Foo";