Lines Matching full:foo*
31 sub fooinc {
33 if (substr($filename,0,3) eq 'Foo') {
41 push @INC, \&fooinc;
46 $evalret = eval { require Foo; 1 };
48 ok( $evalret, 'require Foo; magic via code ref' );
49 ok( exists $INC{'Foo.pm'}, ' %INC sees Foo.pm' );
50 is( ref $INC{'Foo.pm'}, 'CODE', ' val Foo.pm is a coderef in %INC' );
51 is( $INC{'Foo.pm'}, \&fooinc, ' val Foo.pm is correct in %INC' );
53 $evalret = eval "use Foo1; 1;";
55 ok( $evalret, 'use Foo1' );
56 ok( exists $INC{'Foo1.pm'}, ' %INC sees Foo1.pm' );
57 is( ref $INC{'Foo1.pm'}, 'CODE', ' val Foo1.pm is a coderef in %INC' );
58 is( $INC{'Foo1.pm'}, \&fooinc, ' val Foo1.pm is correct in %INC' );
60 $evalret = eval { do 'Foo2.pl'; 1 };
62 ok( $evalret, 'do "Foo2.pl"' );
63 ok( exists $INC{'Foo2.pl'}, ' %INC sees Foo2.pl' );
64 is( ref $INC{'Foo2.pl'}, 'CODE', ' val Foo2.pl is a coderef in %INC' );
65 is( $INC{'Foo2.pl'}, \&fooinc, ' val Foo2.pl is correct in %INC' );
70 sub fooinc2 {
80 my $arrayref = [ \&fooinc2, 'Bar' ];
83 $evalret = eval { require Foo; 1; };
86 $evalret = eval { require Foo3; 1; };
108 sub FooLoader::INC {
118 my $href = bless( {}, 'FooLoader' );
125 is( ref $INC{'Quux.pm'}, 'FooLoader',
131 my $aref = bless( [], 'FooLoader' );
138 is( ref $INC{'Quux1.pm'}, 'FooLoader',
144 my $sref = bless( \(my $x = 1), 'FooLoader' );
151 is( ref $INC{'Quux2.pm'}, 'FooLoader',
193 my $filename = $^O eq 'MacOS' ? ':Foo:Foo.pm' : './Foo.pm';