| /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/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 | override.t | 34 require Foo::Bar;
35 is( $r, join($dirsep, "Foo", "Bar.pm") );
49 eval "use Foo::Bar";
50 is( $r, join($dirsep, "Foo", "Bar.pm") );
|
| H A D | inccode.t | 43 my $evalret = eval { require Bar; 1 };
80 my $arrayref = [ \&fooinc2, 'Bar' ];
89 $evalret = eval { require Bar; 1 };
91 ok( $evalret, 'require Bar; magic via array ref' );
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
[all...] |
| H A D | sort.t | 303 package Bar; package
310 $def = 1 if defined $Bar::a;
311 Bar::reenter() unless $init++;
|
| H A D | gv.t | 72 { package Foo::Bar; no warnings 'once'; $test=1; }
73 print exists $Foo::{'Bar::'} ? "ok 12\n" : "not ok 12\n";
74 print $Foo::{'Bar::'} eq '*Foo::Bar::' ? "ok 13\n" : "not ok 13\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | prompt.t | 41 is( prompt("Foo?", 'Bar!'), 'Bar!', 'default' );
42 like( $stdout->read, qr/^Foo\? \[Bar!\]\s+Bar!\n$/, ' question' );
54 is( prompt("Foo?", 'Bar!'), 'From STDIN', 'from STDIN' );
55 like( $stdout->read, qr/^Foo\? \[Bar!\]\s*$/, ' question' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | SelfLoader.t | 50 open(BAR, ">$dir${sep}Bar.pm") or die;
52 package Bar;
63 sub a { 'a Bar'; }
64 sub b { 'b Bar' }
83 use Bar;
139 $bar = new Bar;
146 # There is no Bar::c so we should get Baz::c
150 # This selfloads Bar::a because it is stubbed. It also stubs Bar::b as a side
152 print "not " unless $bar->a() eq 'a Bar';
[all...] |
| H A D | base.pm | 174 use base qw(Foo Bar);
184 require Bar;
185 push @ISA, qw(Foo Bar);
|
| 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 | AutoLoader.t | 144 package Bar; package
|
| H A D | strict.pm | 128 compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or
|
| H A D | Exporter.t | 113 package Bar; package
|
| H A D | bigrat.pm | 201 Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
203 use bigrat lib => 'Foo,Math::BigInt::Bar';
|
| H A D | fields.pm | 200 package Bar;
208 $self->{_Bar_private} = "this is Bar's secret";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| H A D | extra.t | 42 ok(0, 'Bar');
51 not ok 2 - Bar
|
| /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/Pod/t/ |
| H A D | text-options.t | 88 =item Bar
106 : Bar
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
| H A D | via.t | 78 sub PerlIO::via::Bar::PUSHED { $obj = shift; -1; }
81 open $fh, '<:via(Bar)', "bar";
82 is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
|
| /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/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/lib/ExtUtils/Command/ |
| H A D | MM.pm | 174 'module name' is simply the name of your module. (Foo::Bar)
|
| /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/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"
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| H A D | Install.pm | 38 pm_to_blib({ 'lib/Foo/Bar.pm' => 'blib/lib/Foo/Bar.pm' });
260 (ie. Foo::Bar would be Foo/Bar). If $fullext is not specified, it
|