[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";
    Bench::Run->new( %$bench )->run;
}
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 ) {
	15	print delete $bench->{name}, "\n";
	16	Bench::Run->new( %$bench )->run;
	17	}
	18
	19