Searched full:foo* (Results 301 - 325 of 797) sorted by relevance

<<11121314151617181920>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/
H A Dtodo_inline3 not ok 1 - Foo # TODO Just testing the todo interface.
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/strict/
H A Drefs301 /(?{${"foo"}++})/;
303 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.
H A Dsubs309 # see if Foo->Bar(...) etc work under strictures
311 package Foo; sub Bar { print "@_\n" }
312 Foo->Bar('a',1);
313 Bar Foo ('b',2);
314 Foo->Bar(qw/c 3/);
315 Bar Foo (qw/d 4/);
316 Foo::->Bar('A',1);
317 Bar Foo:: ('B',2);
318 Foo::->Bar(qw/C 3/);
319 Bar Foo
[all...]
H A Dvars297 sub foo {
308 sub foo {
318 sub foo {
329 sub foo {
355 our $foo;
356 $foo = 20;
357 package Foo;
358 print $foo, "\n";
366 our $foo;
367 ${foo}
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/
H A Dav11 $struct = [{foo => 1, bar => 2}, "FOO", "BAR"];
13 $a = $struct->{foo}; # This should warn.
18 $a = $struct->{foo}; # This should warn.
25 package Foo;
27 use fields qw(foo bar);
28 my $foo = fields::new('Foo');
29 $foo->{foo}
[all...]
H A Ddoio271 my $x = "foo";
272 open FOO, '>', \$x;
275 open FOO, '>', \$x;
H A Dmg48 'foo' =~ /(foo)/;
H A Dop83 join(/---/, @foo);
135 my (@foo, %foo);
136 %main::foo->{"bar"};
137 %foo->{"bar"};
138 @main::foo->[23];
139 @foo->[23];
140 $main::foo = {}; %$main::foo->{"bar"};
141 $foo
[all...]
H A Dpp22 sub foo () { 1 }; undef &foo;
25 $foo = sub () { 3 }; undef &$foo;
82 sub foo () { 1 }
83 undef &foo;
88 Constant subroutine foo undefined at - line 4.
92 $foo = sub () { 3 };
93 undef &$foo;
H A Dpp_ctl56 (in cleanup) foo bar
57 package Foo;
58 DESTROY { die "foo bar" }
59 { bless [], 'Foo' for 1..10 }
202 package Foo;
203 DESTROY { die "@{$_[0]} foo bar" }
204 { bless ['A'], 'Foo' for 1..10 }
205 { bless ['B'], 'Foo' for 1..10 }
207 (in cleanup) A foo bar at - line 4.
208 (in cleanup) B foo ba
[all...]
H A Dpp_hot78 open(FOO, "<&FH") or die $! ;
79 print FOO "anc" ;
82 print FOO "anc" ;
85 print FOO "anc" ;
87 close (FOO) or die $! ;
91 Filehandle FOO opened only for input at - line 14.
93 Filehandle FOO opened only for input at - line 20.
125 package foo;
196 open(FOO, ">&FH") or die $! ;
197 $a = <FOO> ;
[all...]
H A Dpp_pack35 sub foo { my $a = "a"; return $a . $a++ . $a++ }
36 my $a = pack("p", &foo) ;
38 my $b = pack("p", &foo) ;
H A Dpp_sys231 flock FOO, 8;
237 flock FOO, 8;
243 flock() on unopened filehandle FOO at - line 19.
430 getc FOO;
442 getc FOO;
446 getc() on unopened filehandle FOO at - line 3.
H A Dsv206 $foo = join '', $a, "\n";
207 $foo = "$a\n";
208 $foo = "a:$a\n";
H A Dtoke120 open FOO || die;
124 *foo *foo
561 # line 30 "foo"
568 yelp at foo line 30.
613 open FOO || time;
615 Precedence problem: open FOO should be open(FOO) at - line 2.
618 open FOO => "<&0"; close FOO;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Danonsub.t75 eval "sub #foo\n{print 1}";
H A Dargs.t58 eval { method('foo', 'bar'); };
68 my $foo = 'foo'; local1($foo); local1($foo);
69 print "got [$foo], expected [foo]\nnot " if $foo ne 'foo';
H A Darray.t12 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
39 @foo = ();
40 $r = join(',', $#foo, @foo);
42 $foo[0] = '0';
43 $r = join(',', $#foo, @foo);
45 $foo[2] = '2';
46 $r = join(',', $#foo, @foo);
239 sub foo { "a" } subroutine
[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 Dauto.t45 if (++($foo = '99') eq '100') {print "ok 31\n";} else {print "not ok 31\n";}
46 if (++($foo = 'a0') eq 'a1') {print "ok 32\n";} else {print "not ok 32\n";}
47 if (++($foo = 'Az') eq 'Ba') {print "ok 33\n";} else {print "not ok 33\n";}
48 if (++($foo = 'zz') eq 'aaa') {print "ok 34\n";} else {print "not ok 34\n";}
49 if (++($foo = 'A99') eq 'B00') {print "ok 35\n";} else {print "not ok 35\n";}
51 if (++($foo = 'zi') eq 'zj') {print "ok 36\n";} else {print "not ok 36\n";}
52 if (++($foo = 'zr') eq 'zs') {print "ok 37\n";} else {print "not ok 37\n";}
H A Davhv.t102 $avhv = [{foo=>1, bar=>2}];
115 $avhv = [{foo=>1,bar=>2,pants=>3}];
131 $avhv->{foo} = 'xxx';
134 my @x = delete @{$avhv}{'foo','pants'};
147 %$avhv = (foo => 29, pants => 2, bar => 0);
152 ($extra, %$avhv) = ("moo", foo => 42, pants => 53, bar => "HIKE!");
157 (%$avhv, $extra) = (foo => 42, pants => 53, bar => "HIKE!");
163 (%$avhv, @extra) = (foo => 42, pants => 53, bar => "HIKE!");
168 (@extra, %$avhv) = (foo => 42, pants => 53, bar => "HIKE!");
173 $avhv = [{foo
[all...]
H A Dbless.t31 our $test = "foo"; $d1 = bless \*test, "D";
H A Dbop.t55 $foo = "A" x 150;
59 is (($foo & $bar), ($Aaz x 75 ));
61 is (($foo | $bar), ($Aoz x 75 . $zap));
63 is (($foo ^ $bar), ($Axz x 75 . $zap));
H A Dcaller.t32 sub foo { @c = caller(0) } subroutine
33 my $fooref = delete $::{foo};
34 $fooref -> ();
61 sub foo2 { f() } subroutine
62 my $fooref2 = delete $::{foo2};
63 $fooref2 -> ();
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...]

Completed in 52 milliseconds

<<11121314151617181920>>