/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/examples/ |
H A D | crash.cgi | 6 foo bar baz;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | nothr5005.t | 26 sub baz { push @_, 'E'; return @_ } subroutine 33 print "not" unless join('',baz('e')) eq 'eE';
|
H A D | vec.t | 29 $foo = $bar = $baz = 0; 32 $baz = $foo | $bar; 35 print "$foo $bar $baz" eq "1 2 3" ? "ok 18\n" : "not ok 18\n";
|
H A D | ref.t | 22 $baz = "ok 3\n"; 25 local(*foo) = 'baz'; 41 $baz = "ok 7\n"; 42 $bar = 'baz'; 205 @baz = \(1,@foo,@bar); 208 print @baz == 3 ? "ok 41\n" : "not ok 41\n";
|
H A D | magic.t | 145 ok $' eq 'baz', $'; 149 @a = qw(foo bar baz); 150 ok "@a" eq "foo bar baz", "@a"; 153 ok "@a" eq "foo,bar,baz", "@a"; 341 $ENV{'fOo'} = 'baz'; 344 ok (delete($ENV{'foO'}) eq 'baz');
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/ |
H A D | 02maxopen.t | 6 @files = qw(foo bar baz quux); 35 ok( grep(/^(?:baz|quux) 2$/, @cat) == 2 );
|
H A D | 01open.t | 5 @files = qw(foo bar baz quux Foo_Bar);
|
H A D | 03append.t | 5 @files = qw(foo bar baz quux Foo_Bar);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | hidden.t | 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" 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" />), 33 '-value' =>[qw/foo bar baz fie/], 35 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" />),
|
H A D | param_fetch.t | 9 my $q = CGI->new('b=baz;a=foo;a=bar'); 19 is $q->param_fetch('b')->[0] => 'baz', '"b" is "baz"'; 20 is_deeply $q->param_fetch('b') => [qw/ baz /], 'b is array ref too';
|
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', 45 is($result{baz}->value, 'wibble', "cookie baz is correct"); 74 ok(eq_set([keys %result], [qw(foo bar baz qux)]), 80 is($result{baz}->value, 'bitch', "cookie baz is correct"); 91 ok(eq_set([keys %result], [qw(foo bar baz qu [all...] |
H A D | request.t | 61 ok $q=new CGI('foo=bar&foo=baz'),"CGI::new() redux"; 69 $p->{bar} = join("\0",qw(foo bar baz)); 70 is join(' ',$q->param('bar')), 'foo bar baz','tied interface store';
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | undef.t | 45 eq_hash ( { foo => undef, bar => { baz => undef, moo => 23 } }, 46 { foo => undef, bar => { baz => undef, moo => 23 } } );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safe2.t | 59 @baz = (); push(@baz, "o", "10"); $" = 'k '; 65 $cpt->share(qw($foo %bar @baz *glob sayok)); 74 (@baz) ? print "@baz\n" : print "not ok 10\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/ |
H A D | Util.t | 27 eval { $hash{baz} = 99; }; 28 like( $@, qr/^Attempt to access disallowed key 'baz' in a restricted hash/, 31 ok( !exists $hash{baz} ); 122 my %hash = (foo => 42, bar => undef, baz => 0); 123 lock_keys(%hash, qw(foo bar baz up down)); 125 is_deeply( \%hash, { foo => 42, bar => undef, baz => 0 } ); 137 eval { lock_keys(%hash, qw(foo baz)); };
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Benchmark.t | 10 use vars qw($foo $bar $baz $ballast); 51 my $coderef = sub {$baz += fib($ballast)}; 54 $baz = 0; 57 isnt ($baz, 0, "benchmarked code was run"); 64 $baz = 0; 67 isnt ($baz, 0, "benchmarked code was run"); 82 $baz = 0; 83 my $again = countit(1, '$baz += fib($ballast)'); 85 isnt ($baz, 0, "benchmarked code was run"); 198 $foo = $bar = $baz [all...] |
H A D | DB.t | 175 $DB::filename = 'baz'; 179 @ret = grep { /^baz/ } @ret; 221 use vars qw( *baz ); 223 local $DB::filename = 'baz'; 224 local *baz = *{ "main::_<baz" }; 226 @baz = map { dualvar(1, $_) } qw( one two three four five ); 227 %baz = ( 270 DB->set_break('foo', 'baz'); 271 is( $DB::dbline{4}, "baz\ [all...] |
H A D | Dumpvalue.t | 12 use vars qw( $foo @bar %baz ); 178 %baz = ( one => 1, two => 2 ); 179 $d->dumpglob( '', 0, 'baz', *baz ); 180 is( $out->read, "\%baz = (\n 'one' => 1, 'two' => 2\n)\n", 181 'dumped glob for %baz fine' );
|
H A D | AutoLoader.t | 47 sub bazmarkhianish { shift; shift || "baz" } 150 eval { Foo->baz() }; 151 ::like( $@, qr/locate object method "baz"/,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/ |
H A D | netrc.t | 83 login baz 89 default login "baz" password p2 90 default "login" baz password p3 110 is( Net::Netrc->lookup('default', 'baz')->{password}, 'p3', 114 is( Net::Netrc->lookup('abadname')->{login}, 'baz',
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | split_command.t | 35 my @test_args = qw(foo bar baz yar car har ackapicklerootyjamboree);
|
H A D | Packlist.t | 41 $pl->{data}{bar} = 'baz'; 109 baz => 'bup', 137 like( $file, qr/hash.+baz=bup/, 'key with hash value should be present' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/List/ |
H A D | Util.pm | 132 $foo = max @bar, @baz # whatever 146 $foo = maxstr @bar, @baz # whatever 159 $foo = min @bar, @baz # whatever 173 $foo = minstr @bar, @baz # whatever 208 $foo = sum @bar, @baz # whatever
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/ |
H A D | SelfStubber.t | 103 if (@C == 2 && $C[0] =~ /^\s*sub\s+Attribs::baz\s+:\s*locked\s*;\s*$/ 262 sub baz : locked {
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
H A D | htmlview.t | 102 <dt><strong><a name="item_baz">baz</a></strong><br /> 105 The baz item.
|