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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DBenchmark.pm612 $_Usage{runloop} = <<'USAGE';
613 usage: runloop($number, [$string | $coderef])
616 sub runloop { subroutine
640 croak "runloop unable to compile '$c': $@\ncode: $subcode\n" if $@;
641 print STDERR "runloop $n '$subcode'\n" if $Debug;
648 # &runloop a lot, and thus reduce additive errors.
654 timedebug("runloop:",$td);
675 $wn = &runloop($n, ref( $code ) ? sub { } : '' );
682 $wc = &runloop($n, $code);

Completed in 16 milliseconds