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;