Help for this page
use Benchmark qw(cmpthese); use diagnostics; ... f1 => sub { $_ = 0; f1() }, f2 => sub { $_ = 0; f2() }, };
Deep recursion on subroutine "main::f0" at /home/lanx/B/PL/PM/tail_cal +l.pl line 6 (#1) ... f1 76.1/s -- -31% -73% f0 111/s 46% -- -60% f2 280/s 267% 152% --