Searched refs:mysub (Results 1 - 3 of 3) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dref.t106 sub mysub { print "ok 23\n" } subroutine
107 $subref = \&mysub;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t571 sub mysub { print "not calling mysub I hope\n" } subroutine
582 print "not " unless myref(&mysub) =~ /^CODE\(/;
596 eval q/sub multi4 ($\[%]) { 1 } multi4 1, &mysub;/;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Doverload.pm185 '-' => \&mysub;

Completed in 31 milliseconds