version 0.37_04
[gitmo/Mouse.git] / benchmarks / load_class.pl
1 #!perl
2 use strict;
3 use warnings;
4 use Benchmark qw/cmpthese/;
5
6 use Class::MOP;
7 use Mouse();
8
9 print "Class::MOP $Class::MOP::VERSION\n";
10 print "Mouse      $Mouse::VERSION\n";
11
12 cmpthese -1 => {
13     'Class::MOP::load_class' => sub{
14         Class::MOP::load_class('Class::MOP::Class');
15     },
16     'Mouse::Util::load_class' => sub{
17         Mouse::Util::load_class('Class::MOP::Class');
18     },
19 };