Searched defs:Bar (Results 1 - 11 of 11) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DDosGlob.t135 package Bar; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dmy_stash.t14 use constant MyClass => 'Foo::Bar::Biz::Baz';
17 package Foo::Bar::Biz::Baz;
27 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
H A Dsort.t303 package Bar; package
310 $def = 1 if defined $Bar::a;
311 Bar::reenter() unless $init++;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitchd.t21 package Bar; package
26 $s += Bar::bar($_) for 1..$_[0];
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.t32 package Testing::Symtable::Bar;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DAutoLoader.t144 package Bar; package
H A Ddumpvar.t41 package Bar; package
45 use overload '""' => sub { "Bar<@{$_[0]}>" };
50 my $bar = Bar->new(1..5);
147 /^'Bar=ARRAY\(0x[0-9a-f]+\)'$/i
275 /0 Bar=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.t113 package Bar; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/
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/ext/Storable/t/
H A Drecurse.t199 package Bar; package
224 my $bar = new Bar;
227 ok 24, ref($bar2) eq 'Bar';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t442 sub Bar::BAZ { "quuz" } subroutine
488 star2(Bar::BAZ, FOO, sub {
489 print "not " unless $_[0] eq 'Bar::BAZ' and $_[1] eq 'FOO';
490 print "ok $i - star2(Bar::BAZ, FOO)\n"

Completed in 877 milliseconds