/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/t/ |
H A D | global.t | 116 package Foo; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | DosGlob.t | 93 package Foo; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | SelfLoader.t | 21 open(FOO, ">$dir${sep}Foo.pm") or die; 23 package Foo; package 82 use Foo; 85 $foo = new Foo; 105 my $foo = new Foo; 141 # Before anything is SelfLoaded there is no declaration of Foo::b so we should 175 my $foodata = <Foo::DATA>; 176 close Foo::DATA; 206 unlink "$dir${sep}Foo.pm", "$dir${sep}Bar.pm";
|
H A D | Config.t | 57 package Foo; package
|
H A D | AutoLoader.t | 22 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' ); 28 package Foo; package 37 package Foo; package 46 package Foo; package 55 package Foo; package 65 package Foo; package 71 package Foo; package 82 my $foo = new Foo; 88 is( $result, \&Foo::foo, 'can() returns ref to regular installed sub' ); 100 my $foo = new Foo; 127 package Foo; package 137 package Foo; package 148 package Foo; package [all...] |
H A D | dumpvar.t | 37 package Foo; package 49 my $foo = Foo->new(1..5); 143 /^'Foo=ARRAY\(0x[0-9a-f]+\)'$/i 271 /0 Foo=ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n 4 5\n/i
|
H A D | Exporter.t | 89 package Foo; package 101 # The string eval is important. It stops $Foo::{is} existing when 174 package Foo; package
|
H A D | overload.t | 1027 package Foo; package 1051 my $r = Foo->new(8); 1052 $r = Foo->new(0); 1082 use overload '%{}' => sub { (caller(0))[0] eq 'Foo' ? $_[0] : die "zap" }; 1083 package Foo; package 1084 @Foo::ISA = 'Hderef'; 1089 my $a = Foo->new;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | use_ok.t | 14 package Foo::one; 20 package Foo::two; 27 package Foo::three; 33 package Foo::four;
|
H A D | ok_obj.t | 15 package Foo; package 26 ok(my $foo = Foo->new, 'created Foo object');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | my_stash.t | 3 package Foo; package 14 use constant MyClass => 'Foo::Bar::Biz::Baz'; 17 package Foo::Bar::Biz::Baz; 21 for (qw(Foo Foo:: MyClass __PACKAGE__)) { 27 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
|
H A D | method.t | 175 ## %Foo::Bar instead of the package Foo::Bar:: -- and Config.pm just 207 is( $::{"Foo::"} || "none", "none"); # sanity check 1 208 is( $::{"Foo::"} || "none", "none"); # sanity check 2 210 is( UNIVERSAL::can("Foo", "boogie") ? "yes":"no", "no" ); 211 is( $::{"Foo::"} || "none", "none"); # still missing? 213 is( Foo->UNIVERSAL::can("boogie") ? "yes":"no", "no" ); 214 is( $::{"Foo::"} || "none", "none"); # still missing? 216 is( Foo->can("boogie") ? "yes":"no", "no" ); 217 is( $::{"Foo 241 sub Foo::x : lvalue { $x } subroutine [all...] |
H A D | sort.t | 258 package Foo; package
|
H A D | tiehandle.t | 167 package Foo; package 181 tie *STDIN, 'Foo';
|
H A D | eval.t | 423 sub Foo {} print Foo(eval {}); subroutine
|
H A D | goto.t | 263 package Foo; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
H A D | overload.t | 20 package Foo; package 28 my $f = Foo->new; 36 print "not " unless /bar/ && /Foo/;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
H A D | via.t | 77 sub Foo::PUSHED { $obj = shift; -1; } subroutine 79 open $fh, '<:via(Foo)', "foo"; 80 is( $obj, 'Foo', 'search for package Foo' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/ |
H A D | fields.t | 14 package Foo; package 24 is_deeply( [sort keys %Foo::FIELDS], 36 is_deeply( [sort &show_fields('Foo', fields::PUBLIC)], 38 is_deeply( [sort &show_fields('Foo', fields::PRIVATE)], 42 eval q(my Foo $obj = Foo->new; $obj->{notthere} = ""); 50 foreach (Foo->new) { 51 my Foo $obj = $_; 82 package Foo::Autoviv; 87 my Foo [all...] |
H A D | fields-base.t | 69 package Foo::Bar; 72 package Foo::Bar::Baz; 73 use base 'Foo::Bar'; 131 'Foo::Bar' => [qw(b1 b2 b3)], 132 'Foo::Bar::Baz' => [qw(b1 b2 b3 foo bar baz)],
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
H A D | switchd.t | 23 package Foo; package 29 Foo::foo(3); 38 like($r, qr/^main,swdtest.tmp,9;Foo,swdtest.tmp,5;Foo,swdtest.tmp,6;Foo,swdtest.tmp,6;Bar,swdtest.tmp,2;Bar,swdtest.tmp,2;Bar,swdtest.tmp,2;$/i);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | b.t | 29 package Testing::Symtable::Foo; 38 B::walksymtable(\%Testing::Symtable::, 'find_syms', sub { $_[0] =~ /Foo/ }, 49 push @syms, "Testing::Symtable::Foo::yarrow";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | recurse.t | 191 package Foo; package 205 Foo->new(1), 206 Foo->new(2), # Second instance of a Foo 228 ok 25, ref($bar->{b}[0]) eq 'Foo'; 229 ok 26, ref($bar->{b}[1]) eq 'Foo'; 230 ok 27, ref($bar2->{b}[0]) eq 'Foo'; 231 ok 28, ref($bar2->{b}[1]) eq 'Foo';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/ |
H A D | find.t | 512 package Foo; package 522 tie $foo[0], "Foo";
|