the quote style in this message changed over the years
[gitmo/Moose.git] / benchmarks / cmop / run_yml.pl
CommitLineData
38bf2a25 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use FindBin;
7use lib "$FindBin::Bin/lib";
8
9use YAML::Syck;
10use Bench::Run;
11
12my $data = LoadFile( shift || "$FindBin::Bin/all.yml" );
13
14foreach my $bench ( @$data ) {
15 print "== ", delete $bench->{name}, " ==\n\n";
16 Bench::Run->new( %$bench )->run;
17 print "\n\n";
18}
19
20