Searched defs:foobar (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dfirst.t45 ($x) = foobar();
49 sub foobar { first { !defined(wantarray) || wantarray } "not ","not ","not " } subroutine
H A Dreduce.t54 ($x) = foobar();
57 sub foobar { reduce { (defined(wantarray) && !wantarray) ? '' : 'not ' } 0,1,2,3 } subroutine

Completed in 19 milliseconds