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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t101 testing \&one_args, '$';
103 sub one_args ($) { subroutine
108 print "not " unless 1 == one_args(1);
111 print "not " unless 1 == one_args +5;
114 print "not " unless 4 == &one_args;
117 print "not " unless 2 == &one_args(1,2);
120 eval "one_args(1,2)";
124 eval "one_args()";

Completed in 49 milliseconds