Add version and release date
[gitmo/Moose.git] / benchmarks / simple_class.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use Benchmark::Forking qw[cmpthese];
7
8 =pod
9
10 This compares the burden of a basic Moose
11 class to a basic Class::MOP class.
12
13 It is worth noting that the basic Moose
14 class will also create a type constraint
15 as well as export many subs, so this comparison
16 is really not fair :)
17
18 =cut
19
20 cmpthese(5_000,
21     {
22         'w/out_moose' => sub {
23             eval 'package Bar; use metaclass;';
24         },
25         'w_moose' => sub {
26             eval 'package Baz; use Moose;';
27         },
28     }
29 );
30
31 1;