bench/run_yml.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/lib";
   8
   9 use YAML::Syck;
  10 use Bench::Run;
  11
  12 my $data = LoadFile( shift || "$FindBin::Bin/all.yml" );
  13
  14 foreach my $bench ( @$data ) {
  15     print "== ", delete $bench->{name}, " ==\n\n";
  16     Bench::Run->new( %$bench )->run;
  17     print "\n\n";
  18 }
  19
  20