Searched full:foo* (Results 676 - 700 of 797) sorted by relevance

<<21222324252627282930>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSelfLoader.pm137 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 DSelfLoader.t21 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 DShell.pm11 sub new { bless \my $foo, shift }
141 $foo = echo("howdy", "<funny>", "world");
142 print $foo;
H A DSymbol.pm18 # 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 DSymbol.t10 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 DANSIColor.pm324 $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 DCap.pm203 my $foo = (exists $ENV{TERMCAP} ? $ENV{TERMCAP} : '');
206 if (($foo !~ m:^/:s) && ($foo =~ m/(^|\|)${termpat}[:|]/s)) {
207 $entry = $foo;
H A DCap.t123 $ENV{TERM} = 'foo';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/
H A DBuilder.pm539 # Check if it looks like '/foo/'
H A DHarness.pm612 Generates the 't/foo........' $leader for the given C<$test_file> as well
H A DMore.pm83 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 Dstrap.t25 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 DBuilder.t21 $Test->is_eq('foo', 'foo', 'is_eq');
H A DMore.t23 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 Ddiag.t46 $ret = diag("# foo");
49 is( $output, "# # foo\n", "diag() adds a # even if there's one already" );
H A Dextra.t41 ok(1, 'Foo');
50 ok 1 - Foo
H A Dfail-like.t53 eval q{ like( "foo", qr/that/, 'is foo like that' ); };
59 not ok 1 - is foo like that
64 # 'foo'
H A Dfail-more.t51 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 Dis_deeply.t80 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 Dmaybe_regex.t24 my $r = $Test->maybe_regex(qr/^FOO$/i);
26 ok(('foo' =~ /$r/), 'qr// good match');
36 ok(('foo' !~ m/$r/), '"//" bad match');
H A Dmissing.t40 ok(1, 'Foo');
46 ok 1 - Foo
H A Dok_obj.t15 package Foo; package
26 ok(my $foo = Foo->new, 'created Foo object');
H A Doutput.t36 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 Dsimple.t17 ok(1, 'foo');
H A Dtodo.t53 can_ok('Fooble', 'yarble');
54 isa_ok('Fooble', 'yarble');
55 use_ok('Fooble');
56 require_ok('Fooble');

Completed in 74 milliseconds

<<21222324252627282930>>