X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fwith.git;a=blobdiff_plain;f=samples%2Fbench.pl;fp=samples%2Fbench.pl;h=fb89ddb40bb4c2352ff46d9c27e2616c10b909de;hp=149b964971367e609c3edf78a5b0f413c2bb9aff;hb=5d3ec9b6f2a27ddb9a986a67cd428df2340af986;hpb=bf515118a25a277c189afd490f44d5ea1130f816 diff --git a/samples/bench.pl b/samples/bench.pl index 149b964..fb89ddb 100755 --- a/samples/bench.pl +++ b/samples/bench.pl @@ -3,12 +3,12 @@ use strict; use warnings; -use Benchmark qw/cmpthese/; +use Benchmark qw; use lib 'blib/lib'; my $counter; -my @poultry = (qw/cock chick/); +my @poultry = (qw); sub Duck::quack { $counter += $_[0]->{id} * $_[0] } sub fly { $counter += $_[0]; }