/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | SelfLoader.pm | 137 package FOOBAR; 148 This module tells its users that functions in the FOOBAR package are to be 156 is available for reading via the filehandle FOOBAR::DATA, 157 where FOOBAR is the name of the current package when the C<__DATA__> 182 The B<SelfLoader> will read from the FOOBAR::DATA filehandle to 193 token DATA, then the B<SelfLoader> leaves the FOOBAR::DATA 237 =head2 __DATA__, __END__, and the FOOBAR::DATA filehandle. 240 the C<FOOBAR::DATA> together with the B<SelfLoader>. 243 FOOBAR::DATA filehandle. C<__END__> can still be used to denote the end 245 by the B<SelfLoader>. The C<FOOBAR [all...] |
H A D | SelfLoader.t | 21 open(FOO, ">$dir${sep}Foo.pm") or die; 22 print FOO <<'EOT'; 23 package Foo; package 27 sub foo; 35 sub foo { shift; shift || "foo" }; 48 close(FOO); 82 use Foo; 85 $foo [all...] |
H A D | Shell.pm | 11 sub new { bless \my $foo, shift } 141 $foo = echo("howdy", "<funny>", "world"); 142 print $foo;
|
H A D | Symbol.pm | 18 # replace *FOO{IO} handle but not $FOO, %FOO, etc. 19 *FOO = geniosym; 22 print qualify("x", "FOO"), "\n" # "FOO::x" 24 print qualify("BAR::x", "FOO"), "\n"; # "BAR::x" 25 print qualify("STDOUT", "FOO"), "\n"; # "main::STDOUT" (global) 27 print qualify(\*x, "FOO"), "\n"; # returns \*x 30 print { qualify_to_ref $fh } "foo!\ [all...] |
H A D | Symbol.t | 10 BEGIN { $_ = 'foo'; } # because Symbol used to clobber $_ 14 ok( $_ eq 'foo', 'check $_ clobbering' ); 36 $FOO = 'Eymascalar'; 37 *FOO = $sym1; 39 is( $sym1, *FOO{IO}, 'assigns into glob OK' ); 41 is( $FOO, 'Eymascalar', 'leaves scalar alone' ); 47 readline FOO; 52 package foo; package 56 ::ok( qualify("x") eq "foo::x", 'qualify() with a simple identifier' ); 57 ::ok( qualify("x", "FOO") e [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Term/ |
H A D | ANSIColor.pm | 324 $Foobar = FOOBAR . "This line should be blue\n"; 328 @Foobar = FOOBAR, "This line should be blue\n"; 341 print FOOBAR "This text is color FOOBAR\n"; 350 print FOOBAR, "This text is color FOOBAR\n";
|
H A D | Cap.pm | 203 my $foo = (exists $ENV{TERMCAP} ? $ENV{TERMCAP} : ''); 206 if (($foo !~ m:^/:s) && ($foo =~ m/(^|\|)${termpat}[:|]/s)) { 207 $entry = $foo;
|
H A D | Cap.t | 123 $ENV{TERM} = 'foo';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | Builder.pm | 539 # Check if it looks like '/foo/'
|
H A D | Harness.pm | 612 Generates the 't/foo........' $leader for the given C<$test_file> as well
|
H A D | More.pm | 83 ok( foo(), $test_name ); 84 is( foo(42), 23, $test_name ); 90 ok( foo(), $test_name ); 91 is( foo(42), 23, $test_name ); 261 # Failed test 18 (foo.t at line 42) 286 # $foo isn't empty 287 isnt( $foo, '', "Got some foo" ); 292 ok( $foo ne '', "Got some foo" ); [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
H A D | strap.t | 25 ok( !$strap->_is_comment("foo", \$comment), '_is_comment(), not a comment' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | Builder.t | 21 $Test->is_eq('foo', 'foo', 'is_eq');
|
H A D | More.t | 23 is( "foo", "foo", 'foo is foo' ); 24 isnt( "foo", "bar", 'foo isnt bar'); 25 isn't("foo", "bar", 'foo isn\'t bar'); 28 like("fooble", '/^foo/', 'fo [all...] |
H A D | diag.t | 46 $ret = diag("# foo"); 49 is( $output, "# # foo\n", "diag() adds a # even if there's one already" );
|
H A D | extra.t | 41 ok(1, 'Foo'); 50 ok 1 - Foo
|
H A D | fail-like.t | 53 eval q{ like( "foo", qr/that/, 'is foo like that' ); }; 59 not ok 1 - is foo like that 64 # 'foo'
|
H A D | fail-more.t | 51 is( "foo", "bar", 'foo is bar?'); 56 isnt("foo", "foo", 'foo isnt foo?' ); 57 isn't("foo", "foo",'foo isn\'t foo [all...] |
H A D | is_deeply.t | 80 is_deeply('foo', 'bar', 'plain strings'); 84 # got: 'foo' 143 is_deeply({ foo => undef }, {}, 'hashes of undefs', 'hashes of undefs' ); 148 # \$got->{foo} = undef 149 # \$expected->{foo} = Does not exist 193 # $a2 = { foo => \$a3 }; 194 # $b2 = { foo => \$b3 }; 197 my $foo = { 204 that => { up => "down", left => "right", foo => 42 }, 208 is_deeply( $foo, [all...] |
H A D | maybe_regex.t | 24 my $r = $Test->maybe_regex(qr/^FOO$/i); 26 ok(('foo' =~ /$r/), 'qr// good match'); 36 ok(('foo' !~ m/$r/), '"//" bad match');
|
H A D | missing.t | 40 ok(1, 'Foo'); 46 ok 1 - Foo
|
H A D | ok_obj.t | 15 package Foo; package 26 ok(my $foo = Foo->new, 'created Foo object');
|
H A D | output.t | 36 my $out = $Test->output('foo'); 44 open(IN, 'foo') or die $!; 50 open(FOO, ">>foo") or die $!; 51 $out = $Test->output(\*FOO); 57 open(IN, 'foo') or die $!; 63 unlink('foo');
|
H A D | simple.t | 17 ok(1, 'foo');
|
H A D | todo.t | 53 can_ok('Fooble', 'yarble'); 54 isa_ok('Fooble', 'yarble'); 55 use_ok('Fooble'); 56 require_ok('Fooble');
|