Searched refs:no_args (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/
H A Dcorrectness.t12 sub no_args { subroutine
19 memoize('no_args');
21 $c1 = &no_args();
23 $c2 = &no_args();
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t71 testing \&no_args, '';
73 sub no_args () { subroutine
78 print "not " unless 0 == no_args();
81 print "not " unless 0 == no_args;
84 print "not " unless 5 == no_args +5;
87 print "not " unless 4 == &no_args;
90 print "not " unless 2 == &no_args(1,2);
93 eval "no_args(1)";

Completed in 34 milliseconds