version 0.37_04
[gitmo/Mouse.git] / benchmarks / load_class.pl
CommitLineData
dd2d7f1a 1#!perl
2use strict;
3use warnings;
4use Benchmark qw/cmpthese/;
5
6use Class::MOP;
7use Mouse();
8
9print "Class::MOP $Class::MOP::VERSION\n";
10print "Mouse $Mouse::VERSION\n";
11
12cmpthese -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};