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 D | DosGlob.t | 135 package Bar; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | my_stash.t | 14 use constant MyClass => 'Foo::Bar::Biz::Baz'; 17 package Foo::Bar::Biz::Baz; 27 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
|
H A D | sort.t | 303 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 D | switchd.t | 21 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 D | b.t | 32 package Testing::Symtable::Bar;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | AutoLoader.t | 144 package Bar; package
|
H A D | dumpvar.t | 41 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 D | Exporter.t | 113 package Bar; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/ |
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/ext/Storable/t/ |
H A D | recurse.t | 199 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 D | proto.t | 442 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 45 milliseconds