[gitmo/Class-MOP.git] / bench / run_yml.pl

#!/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";
}
Commit	Line	Data
6698ebe5	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 ) {
5b2d23f3	15	print "== ", delete $bench->{name}, " ==\n\n";
6698ebe5	16	Bench::Run->new( %$bench )->run;
5b2d23f3	17	print "\n\n";
6698ebe5	18	}
	19
	20