Searched defs:Foo (Results 1 - 24 of 24) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/t/
H A Dglobal.t116 package Foo; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DDosGlob.t93 package Foo; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSelfLoader.t21 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 DConfig.t57 package Foo; package
H A DAutoLoader.t22 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 Ddumpvar.t37 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 DExporter.t89 package Foo; package
101 # The string eval is important. It stops $Foo::{is} existing when
174 package Foo; package
H A Doverload.t1027 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 Duse_ok.t14 package Foo::one;
20 package Foo::two;
27 package Foo::three;
33 package Foo::four;
H A Dok_obj.t15 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 Dmy_stash.t3 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 Dmethod.t175 ## %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 Dsort.t258 package Foo; package
H A Dtiehandle.t167 package Foo; package
181 tie *STDIN, 'Foo';
H A Deval.t423 sub Foo {} print Foo(eval {}); subroutine
H A Dgoto.t263 package Foo; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/
H A Doverload.t20 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 Dvia.t77 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 Dfields.t14 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 Dfields-base.t69 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 Dswitchd.t23 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 Db.t29 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 Drecurse.t191 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 Dfind.t512 package Foo; package
522 tie $foo[0], "Foo";

Completed in 57 milliseconds