[gitmo/Moose.git] / benchmarks / cmop / 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
38bf2a25	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