fix pod spelling
[gitmo/Moose.git] / benchmarks / simple_compile.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 compare the overhead of Class::MOP
11 to the overhead of Moose.
12
13 The goal here is to see how much more
14 startup cost Moose adds to Class::MOP.
15
16 NOTE:
17 This benchmark may not be all that
18 relevant really, but it's helpful to
19 see maybe.
20
21 =cut
22
23 cmpthese(5_000,
24     {
25         'w/out_moose' => sub {
26             eval 'use Class::MOP;';
27         },
28         'w_moose' => sub {
29             eval 'use Moose;';
30         },
31     }
32 );
33
34 1;