409de840bcd9e176b0bf2565086c96ec3c682b1e
[gitmo/Class-MOP.git] / 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";
16     Bench::Run->new( %$bench )->run;
17 }
18
19