/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/t/ |
H A D | printf.t | 22 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 D | attrs.pm | 12 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 D | re.pm | 14 $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 D | gv.c | 528 * 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 D | AnyDBM_File.t | 110 $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 D | AutoLoader.pm | 50 # 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 D | AutoLoader.t | 22 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 D | Benchmark.t | 10 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 D | demo.pl | 31 # sub foo : Demo();
|
H A D | demo2.pl | 13 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 D | demo4.pl | 9 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 D | Handlers.pm | 320 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 D | Cookie.pm | 29 # 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 D | Pretty.pm | 222 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 D | crash.cgi | 6 foo bar baz;
|
H A D | internal_links.cgi | 18 $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 D | autoescape.t | 56 name => 'foo', 63 qq{<textarea name="foo" rows="10" cols="50" onclick="alert("===> text area")">text area</textarea>},
|
H A D | carp.t | 220 $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 D | cookie.t | 22 ' 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 D | fast.t | 24 ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating object with params' ); 25 is( $q->param('foo'), 'bar', 'checking passed param' );
|
H A D | form.t | 24 $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 D | function.t | 40 $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 D | headers.t | 25 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 D | hidden.t | 8 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 D | html.t | 92 -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>
|