Lines Matching full:foo*
22 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' ))
26 or die "Can't open foo file: $!";
27 print FOO <<'EOT';
28 package Foo;
29 sub foo { shift; shift || "foo" }
32 close(FOO);
37 package Foo;
46 package Foo;
55 package Foo;
65 package Foo;
71 package Foo;
76 sub foo;
82 my $foo = new Foo;
84 my $result = $foo->can( 'foo' );
86 is( $foo->foo, 'foo', 'autoloaded first time' );
87 is( $foo->foo, 'foo', 'regular call' );
88 is( $result, \&Foo::foo, 'can() returns ref to regular installed sub' );
91 $foo->will_fail;
95 $result = $foo->can( 'will_fail' );
100 my $foo = new Foo;
108 'foo' =~ /(\w+)/;
110 is( $foo->bar($1), 'foo', 'autoloaded method should not stomp match vars' );
111 is( $foo->bar($1), 'foo', '(again)' );
112 is( $foo->bazmarkhianish($1), 'foo', 'for any method call' );
113 is( $foo->bazmarkhianish($1), 'foo', '(again)' );
119 $foo->blechanawilla;
127 package Foo;
137 package Foo;
142 Foo::a();
148 package Foo;
150 eval { Foo->baz() };