samples/bench.pl

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Benchmark qw<cmpthese>;
   7
   8 my $n = 10_000;
   9
  10 cmpthese 10, {
  11  'Test::More'   => sub { system "$^X -e 'use Test::More; plan q[no_plan]; pass for 1 .. $n' > /dev/null" },
  12  'Test::Leaner' => sub { system "$^X -e 'use lib q[lib]; use Test::Leaner; plan q[no_plan]; pass for 1 .. $n' > /dev/null" },
  13 };