Searched refs:foo (Results 76 - 100 of 237) sorted by relevance

12345678910

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dcaller.t32 sub foo { @c = caller(0) } subroutine
33 my $fooref = delete $::{foo};
H A Dwrite.t76 $foo
78 $foo
80 $foo
93 $foo = 'when in the course of human events it becomes necessary';
123 $foo
132 $foo = 'when in the course of human events it becomes necessary';
164 $foo
175 $foo = 'when in the course of human events it becomes necessary';
237 $foo
242 $foo
[all...]
H A Dattrs.t60 eval 'my $x : switch(10,foo(7,3)) : expensive;';
61 like $@, qr/^Invalid SCALAR attributes: ["']?switch\(10,foo\(7,3\)\) : expensive["']? at/;
68 eval 'my $x : switch(10,foo();';
88 sub X::foo { 1 }
89 *Y::bar = \&X::foo;
90 *Y::bar = \&X::foo; # second time for -w
91 eval 'package Z; sub Y::bar : foo';
144 eval 'our ${""} : foo = 1';
146 eval 'my $$foo : bar = 1';
H A Dchop.t12 $c = do foo();
19 sub foo { subroutine
23 @foo = ("hi \n","there\n","!\n");
24 @bar = @foo;
28 $foo = "\n";
29 chop($foo,@foo);
30 is (join('',$foo,@foo), 'hi there!');
32 $_ = "foo\
[all...]
H A Deval.t14 eval "\$foo\n = # this is a comment\n'ok 3';";
15 print $foo,"\n";
17 eval "\$foo\n = # this is a comment\n'ok 4\n';";
18 print $foo;
21 $foo =;'; # this tests for a call through yyerror()
24 print eval '$foo = /'; # this tests for a call through fatal()
31 $foo = 5;
32 $fact = 'if ($foo <= 1) {1;} else {push(@x,$foo--); (eval $fact) * pop(@x);}';
36 $foo
224 foo: print "not ok 41\\n"; label
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitchd.t24 sub foo { subroutine
29 Foo::foo(3);
H A Dfresh_perl.t69 $foo=undef; $foo->go;
75 "foo";
106 $_="foo";
109 foo
132 $_="foo";
138 print scalar ("foo","bar")
169 bless ['foo']
199 package foo;
220 print STDOUT "foo
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dfirst.t32 my $foo = first { $_->[1] le "e" and "e" le $_->[2] }
34 print "not " unless $foo->[0] eq 'd';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
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...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/
H A D01open.t5 @files = qw(foo bar baz quux Foo_Bar);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/
H A Dgol-compat.t14 @ARGV = qw(-Foo -baR --foo bar);
19 print "ok 1\n" if NGetOpt ("foo", "Foo=s");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/
H A Doption_l.t18 my $rc = eval ('bignum->import( "l" => "foo" );');
20 $rc = eval ('bignum->import( "lib" => "foo" );');
23 $rc = eval ('bignum->import( "foo" => "bar" );');
24 ok ($@ =~ /^Unknown option foo/i,1); # should die
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dinplace.t12 `.\\perl -le "print 'foo'" > .a`;
13 `.\\perl -le "print 'foo'" > .b`;
14 `.\\perl -le "print 'foo'" > .c`;
18 `perl -le "print 'foo'" > .a`;
19 `perl -le "print 'foo'" > .b`;
20 `perl -le "print 'foo'" > .c`;
24 `$^X -le "print 'foo'" > .a`;
25 `$^X -le "print 'foo'" > .b`;
26 `$^X -le "print 'foo'" > .c`;
30 `MCR []perl. -le "print 'foo'" >
[all...]
H A Diprefix.t12 `.\\perl -le "print 'foo'" > .a`;
13 `.\\perl -le "print 'foo'" > .b`;
14 `.\\perl -le "print 'foo'" > .c`;
18 `perl -le "print 'foo'" > .a`;
19 `perl -le "print 'foo'" > .b`;
20 `perl -le "print 'foo'" > .c`;
24 `MCR []perl. -le "print 'foo'" > ./.a`;
25 `MCR []perl. -le "print 'foo'" > ./.b`;
26 `MCR []perl. -le "print 'foo'" > ./.c`;
30 `$^X -le "print 'foo'" >
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/
H A Doverload.t23 sub new { bless { foo => "bar" }, shift }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeuniversal.t32 sub Foo::foo {}
36 (bless[],"Foo")->can("foo");
40 is( (bless[],"Foo")->can("foo"), \&Foo::foo, "... but not outside" );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Ddclone.t59 $foo = FOO->make;
60 print "not " unless defined($r = $foo->dclone);
63 print "not " unless &dump($foo) eq &dump($r);
H A Dstore.t64 $foo = FOO->make;
65 print "not " unless $foo->store('store');
74 print "not " unless defined nstore_fd($foo, ::OUT);
88 print "not " unless &dump($foo) eq &dump($r);
100 print "not " unless &dump($foo) eq &dump($r);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DNEXT.pm265 if ($AUTOLOAD =~ /foo|bar/) {
291 sub foo { print "called A::foo\n"; shift->NEXT::foo() }
294 sub foo { print "called B::foo\n"; shift->NEXT::foo() }
297 sub foo { print "called C::foo\n"; shift->NEXT::foo() }
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/
H A DStd.t15 @ARGV = qw(-xo -f foo -y file);
20 is( $opt_f, 'foo', q/option -f is 'foo'/ );
59 @ARGV = qw(--help --file foo --foo --nobar --num=5 -- file);
66 'foo!' => \$FOO,
73 ok( $HELP && $FOO && !$BAR && $FILE eq 'foo' && $NO == 5, 'options set' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/
H A DUtil.t25 my %hash = (foo => 42, bar => 23, locked => 'yep');
79 my %hash = ( foo => 42, locked => 23 );
107 lock_keys(%hash, qw(foo bar));
109 $hash{foo} = 42;
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 } );
136 my %hash = (foo => 42, bar => undef);
137 eval { lock_keys(%hash, qw(foo baz)); };
144 my %hash = (foo
[all...]
/osnet-11/usr/src/lib/libmtmalloc/tests/
H A Dgeneral.c63 be_thread(void * foo) argument
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dparser.t39 eval 'undef foo';
55 eval q{ qq(foo$) };
86 $c =~ s/${a}{/foo/;
87 is($c, 'foo', "interpolation, s/...//");
88 $c =~ s/foo/${a}{/;
101 my %data = ( foo => "\n" );
104 $data{foo});
111 1 { foo => 'bar' }
141 eval q{ *foo{CODE} ? 1 : 0 };
H A Drequire.t142 $foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i;
143 @foo = eval q{require bleah}; delete $INC{"bleah.pm"}; ++$::i;
146 $foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i;
147 @foo = eval {require bleah}; delete $INC{"bleah.pm"}; ++$::i;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
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...]

Completed in 85 milliseconds

12345678910