benchmarks/cmop/run_yml.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

use YAML::Syck;
use Bench::Run;

my $data = LoadFile( shift || "$FindBin::Bin/all.yml" );

foreach my $bench ( @$data ) {
    print "== ", delete $bench->{name}, " ==\n\n";
    Bench::Run->new( %$bench )->run;
    print "\n\n";
}