sub MY::postamble {
my (undef,%h) = @_;
require Data::Dumper;
#print STDERR Data::Dumper->Dump([\%h], [qw(mm_args{postamble})]);
return "BENCHMARK_FILES=$h{BENCHMARK_FILES}\n"
. <<'POSTAMBLE';
#bench :: benchmarks/*.b
bench :: $(BENCHMARK_FILES)
prove --blib $(INST_LIB) --blib $(INST_ARCHLIB) --verbose $^
POSTAMBLE
}
####
use strict;
use warnings;
use Our::New::Module::To::Benchmark;
use Benchmark qw/timethese cmpthese :hireswallclock/;
use Test::More;
my $num_repeats = 2;
print "$0 : benchmarks...\n";
# shamelessly ripped off App::Benchmark
cmpthese(timethese($num_repeats, {
'blabla, repeats '.$num_repeats.':' => \&do_one_repeat
}));
plan tests => 1;
pass('benchmark : '.__FILE__);
sub do_one_repeat {
# this is where a run happens for 1 repeat of the benchmark
}
1;
__END__
####
perl Makefile.PL && make all && make test && make bench && make install