Lines Matching refs:pm
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' );
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' );
92 ok( exists $INC{'Bar.pm'}, ' %INC sees Bar.pm' );
93 is( ref $INC{'Bar.pm'}, 'ARRAY', ' val Bar.pm is an arrayref in %INC' );
94 is( $INC{'Bar.pm'}, $arrayref, ' val Bar.pm is correct in %INC' );
97 ok( exists $INC{'Bar1.pm'}, ' %INC sees Bar1.pm' );
98 is( ref $INC{'Bar1.pm'}, 'ARRAY', ' val Bar1.pm is an arrayref in %INC' );
99 is( $INC{'Bar1.pm'}, $arrayref, ' val Bar1.pm is correct in %INC' );
124 ok( exists $INC{'Quux.pm'}, ' %INC sees Quux.pm' );
125 is( ref $INC{'Quux.pm'}, 'FooLoader',
126 ' val Quux.pm is an object in %INC' );
127 is( $INC{'Quux.pm'}, $href, ' val Quux.pm is correct in %INC' );
137 ok( exists $INC{'Quux1.pm'}, ' %INC sees Quux1.pm' );
138 is( ref $INC{'Quux1.pm'}, 'FooLoader',
139 ' val Quux1.pm is an object in %INC' );
140 is( $INC{'Quux1.pm'}, $aref, ' val Quux1.pm is correct in %INC' );
150 ok( exists $INC{'Quux2.pm'}, ' %INC sees Quux2.pm' );
151 is( ref $INC{'Quux2.pm'}, 'FooLoader',
152 ' val Quux2.pm is an object in %INC' );
153 is( $INC{'Quux2.pm'}, $sref, ' val Quux2.pm is correct in %INC' );
171 ok( exists $INC{'Toto.pm'}, ' %INC sees Toto.pm' );
172 ok( ! ref $INC{'Toto.pm'}, q/ val Toto.pm isn't a ref in %INC/ );
173 is( $INC{'Toto.pm'}, 'xyz', ' val Toto.pm is correct in %INC' );
193 my $filename = $^O eq 'MacOS' ? ':Foo:Foo.pm' : './Foo.pm';