Searched refs:foo2 (Results 1 - 7 of 7) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dswitch.t29 sub foo2 { subroutine
43 print do foo2(0) == 20 ? "ok 7\n" : "not ok 7\n";
44 print do foo2(1) == 1 ? "ok 8\n" : "not ok 8\n";
45 print do foo2(2) == 2 ? "ok 9\n" : "not ok 9\n";
46 print do foo2(3) == 3 ? "ok 10\n" : "not ok 10\n";
47 print do foo2(4) == 4 ? "ok 11\n" : "not ok 11\n";
48 print do foo2(5) == 20 ? "ok 12\n" : "not ok 12\n";
H A Dsubval.t10 sub foo2 { subroutine
40 if (&foo2(0) eq 'true3') {print "ok 3\n";} else {print "not ok 3\n";}
41 if (&foo2(1) eq 'true2') {print "ok 4\n";} else {print "not ok 4\n";}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dcaller.t61 sub foo2 { f() } subroutine
62 my $fooref2 = delete $::{foo2};
H A Ddo.t11 sub foo2 subroutine
44 $result = do foo2(0,1,0);
H A Dmy.t30 sub foo2 { subroutine
45 print &foo2("ok 11\n","ok 12\n");
H A Dlocal.t26 sub foo2 { subroutine
41 print &foo2("ok 11\n","ok 12\n");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t422 sub foo2 ($\%);
423 eval q{ foo2 "s" };

Completed in 17 milliseconds