benchmarks/basic.pl

   1 #!perl
   2 use strict;
   3 use warnings;
   4 use Benchmark qw/cmpthese/;
   5
   6 for my $klass (qw/Moose Mouse/) {
   7     eval qq{
   8         package ${klass}One;
   9         use $klass;
  10         has n => (
  11             is  => 'rw',
  12             isa => 'Int',
  13         );
  14         no $klass;
  15         __PACKAGE__->meta->make_immutable;
  16     };
  17     die $@ if $@;
  18 }
  19
  20 print "Class::MOP: $Class::MOP::VERSION\n";
  21 print "Moose:      $Moose::VERSION\n";
  22 print "Mouse:      $Mouse::VERSION\n";
  23 print "---- new\n";
  24 cmpthese(
  25     -1 => {
  26         map { my $x = $_; $_ => sub { $x->new(n => 3) } }
  27         map { "${_}One" }
  28         qw/Moose Mouse/
  29     }
  30 );
  31
  32 print "---- new,set\n";
  33 cmpthese(
  34     -1 => {
  35         map { my $y = $_; $_ => sub { $y->new(n => 3)->n(5) } }
  36         map { "${_}One" }
  37         qw/Moose Mouse/
  38     }
  39 );
  40
  41 print "---- set\n";
  42 my %c = map { $_ => "${_}One"->new(n => 3) } qw/Moose Mouse/;
  43 cmpthese(
  44     -1 => {
  45         map { my $y = $_; $_ => sub { $c{$y}->n(5) } }
  46         qw/Moose Mouse/
  47     }
  48 );
  49
  50 print "---- get\n";
  51 cmpthese(
  52     -1 => {
  53         map { my $y = $_; $_ => sub { $c{$y}->n() } }
  54         qw/Moose Mouse/
  55     }
  56 );
  57