Searched full:foo* (Results 526 - 550 of 797) sorted by relevance

<<21222324252627282930>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/t/
H A Dprintf.t22 ok open(STDOUT, '>', "foo.out"),"redirecting STDOUT";
25 END { unlink "foo.out"; };
40 ok open(my $foo, "<foo.out"), "open foo.out";
43 my @output = map { chomp; $_ } <$foo>;
44 close $foo;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/attrs/
H A Dattrs.pm12 sub foo {
17 @a = attrs::get(\&foo);
23 sub foo : locked method { }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/re/
H A Dre.pm14 $pat = '(?{ $foo = 1 })';
16 /foo${pat}bar/; # won't fail (when not under -T switch)
23 /foo${pat}bar/; # disallowed (with or without -T switch)
54 /foo${pat}bar/
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dgv.c528 * Given &FOO::AUTOLOAD, set $FOO::AUTOLOAD to desired function name.
1027 /* ${"1foo"} fails this test (and is thus writeable) */
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DAnyDBM_File.t110 $h{'foo'} = '';
124 @foo = @h{0..200};
125 ok( join(':',200..400) eq join(':',@foo), "hash slice");
127 ok($h{'foo'} eq '', "empty value");
H A DAutoLoader.pm50 # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al',
51 # or './lib/auto/foo/bar.al'. This avoids C<require> searching
52 # (and failing) to find the 'lib/auto/foo/bar.al' because it
53 # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').
189 package Foo;
H A DAutoLoader.t22 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' ))
26 or die "Can't open foo file: $!";
27 print FOO <<'EOT';
28 package Foo; package
29 sub foo { shift; shift || "foo" } subroutine
32 close(FOO);
37 package Foo; package
46 package Foo; package
55 package Foo; package
65 package Foo; package
71 package Foo; package
127 package Foo; package
137 package Foo; package
148 package Foo; package
[all...]
H A DBenchmark.t10 use vars qw($foo $bar $baz $ballast);
39 isa_ok(timeit(5, sub {++$foo}), 'Benchmark', "timeit CODEREF");
40 is ($foo, 5, "benchmarked code was run 5 times");
132 $foo = 0;
134 my $got = timethis($iterations, sub {++$foo});
137 is ($foo, $iterations, "benchmarked code was run $iterations times");
155 $foo = 0;
157 $got = timethis($iterations, sub {++$foo}, $title);
160 is ($foo, $iterations, "benchmarked code was run $iterations times");
167 $foo
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A Ddemo.pl31 # sub foo : Demo();
H A Ddemo2.pl13 sub foo :Demo(till=>ears=>are=>bleeding) {} subroutine
14 sub foo :Demo(['till','ears','are','bleeding']) {} subroutine
15 sub foo :Demo(qw/till ears are bleeding/) {} subroutine
16 sub foo :Demo(till,ears,are,bleeding) {} subroutine
18 sub foo :Demo(my,ears,are,bleeding) {} subroutine
19 sub foo :Demo(my=>ears=>are=>bleeding) {} subroutine
20 sub foo :Demo(qw/my, ears, are, bleeding/) {} subroutine
21 sub foo :Demo(qw/my ears are bleeding) {} subroutine
H A Ddemo4.pl9 sub foo : Purpose(to foo all data before barring it) { } subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/
H A DHandlers.pm320 sub foo: Loud {...}
357 my $foo :Loud;
358 my @foo :Loud;
359 my %foo :Loud;
374 attribute. For example, if C<&foo> had been declared:
376 sub foo :Loud("turn it up to 11, man!") {...}
386 sub foo :Loud(till=>ears=>are=>bleeding) {...}
387 sub foo :Loud(['till','ears','are','bleeding']) {...}
388 sub foo :Loud(qw/till ears are bleeding/) {...}
389 sub foo
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/
H A DCookie.pm29 # PerlEx::DBI tries to fool DBI by setting MOD_PERL
349 my $c = CGI::Cookie->new(-name => 'foo',
395 -name => 'foo',
417 my $c = CGI::Cookie->new(-name => 'foo',
H A DPretty.pm222 print table( TR( td( "foo" ) ) );
230 print table( TR( td( "foo" ) ) );
233 <TABLE><TR><TD>foo</TD></TR></TABLE>
243 print table( TR( td( "foo" ) ) );
248 <TD>foo</TD>
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/examples/
H A Dcrash.cgi6 foo bar baz;
H A Dinternal_links.cgi18 $query->param('amenu','FOO1') unless $query->param('amenu');
21 print $query->popup_menu('amenu',[('FOO1'..'FOO9')]);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dautoescape.t56 name => 'foo',
63 qq{<textarea name="foo" rows="10" cols="50" onclick="alert("===> text area")">text area</textarea>},
H A Dcarp.t220 $ENV{SERVER_ADMIN} = 'foo@bar.com';
245 ok($result[0] !~ /foo\@bar.com/, "Server Admin does not appear in default message");
248 '/foo@bar.com/',
H A Dcookie.t22 ' foo=123 ; bar=qwerty; baz=wibble; qux=a1',
23 'foo=123; bar=qwerty; baz=wibble;',
24 'foo=vixen; bar=cow; baz=bitch; qux=politician',
25 'foo=a%20phrase; bar=yes%2C%20a%20phrase; baz=%5Ewibble; qux=%27',
43 is($result{foo}->value, '123', "cookie foo is correct");
74 ok(eq_set([keys %result], [qw(foo bar baz qux)]),
77 is(ref($result{foo}), 'CGI::Cookie', 'Type of objects returned is correct');
78 is($result{foo}->value, 'vixen', "cookie foo i
[all...]
H A Dfast.t24 ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating object with params' );
25 is( $q->param('foo'), 'bar', 'checking passed param' );
H A Dform.t24 $ENV{SCRIPT_NAME} ='/cgi-bin/foo.cgi';
29 is(start_form(-action=>'foobar',-method=>'get'),
30 qq(<form method="get" action="foobar" enctype="multipart/form-data">\n),
37 is(submit(-name => 'foo',
39 qq(<input type="submit" tabindex="2" name="foo" value="bar" />),
42 is(submit({-name => 'foo',
44 qq(<input type="submit" tabindex="3" name="foo" value="bar" />),
191 is(start_form("GET","/foobar"),
192 qq{<form method="get" action="/foobar" enctype="multipart/form-data">
196 is(start_form("GET", "/foobar",
[all...]
H A Dfunction.t40 $ENV{SCRIPT_NAME} ='/cgi-bin/foo.cgi';
53 test(9,param(-name=>'foo',-value=>'bar'),'CGI::param() put');
54 test(10,param(-name=>'foo') eq 'bar','CGI::param() get');
55 test(11,query_string() eq 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux");
57 test(13,script_name() eq '/cgi-bin/foo.cgi',"CGI::script_name()");
58 test(14,url() eq 'http://the.good.ship.lollypop.com:8080/cgi-bin/foo.cgi',"CGI::url()");
60 'http://the.good.ship.lollypop.com:8080/cgi-bin/foo.cgi/somewhere/else?game=chess;game=checkers;weather=dull;foo=bar',
62 test(16,url(-absolute=>1) eq '/cgi-bin/foo.cgi','CGI::url(-absolute=>1)');
63 test(17,url(-relative=>1) eq 'foo
[all...]
H A Dheaders.t25 eval { $cgi->header( -foobar => "text/html".$CGI::CRLF."evil: stuff" ) };
28 eval { $cgi->header( -foobar => $CGI::CRLF."Content-type: evil/header" ) };
34 eval { $cgi->redirect( -foobar => "text/html".$CGI::CRLF."evil: stuff" ) };
H A Dhidden.t8 is( $q->hidden( 'hidden_name', 'foo' ),
9 qq(<input type="hidden" name="hidden_name" value="foo" />),
12 is( $q->hidden( -name => 'hidden_name', -default =>'foo' ),
13 qq(<input type="hidden" name="hidden_name" value="foo" />),
16 is( $q->hidden( 'hidden_name', qw(foo bar baz fie) ),
17 qq(<input type="hidden" name="hidden_name" value="foo" /><input type="hidden" name="hidden_name" value="bar" /><input type="hidden" name="hidden_name" value="baz" /><input type="hidden" name="hidden_name" value="fie" />),
21 -Values =>[qw/foo bar baz fie/],
23 qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
27 -default =>[qw/foo bar baz fie/],
29 qq(<input type="hidden" name="hidden_name" value="foo" titl
[all...]
H A Dhtml.t92 -Title => 'The world of foo' ,
93 -Script => [ {-src=> 'foo.js', -charset=>'utf-8'} ],
100 <title>The world of foo</title>
101 <script src="foo.js" charset="utf-8" type="text/javascript"></script>

Completed in 97 milliseconds

<<21222324252627282930>>