Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
sub callCmp {
  cmpthese (1, {bogus => cmpthese, bogus => cmpthese});
}

Select or download this

Uncaught exception from user code:
    usage: cmpthese($count, { Name1 => 'code1', ... });        or
...
 at C:/Perl/lib/Benchmark.pm line 876
    Benchmark::cmpthese() called at noname1.pl line 10
    main::callCmp() called at noname1.pl line 7