7 has foo => (is => 'rw');
10 package MooseHorseImmut;
12 has foo => (is => 'rw');
13 __PACKAGE__->meta->make_immutable();
16 package MooseHorseImmutNoConst;
18 has foo => (is => 'rw');
19 __PACKAGE__->meta->make_immutable(inline_constructor => 0);
26 use base 'Class::Accessor::Fast';
27 __PACKAGE__->mk_accessors(qw(foo));
34 use Benchmark qw(cmpthese);
35 use Benchmark ':hireswallclock';
37 my $moose = MooseHorse->new;
38 my $moose_immut = MooseHorseImmut->new;
39 my $moose_immut_no_const = MooseHorseImmutNoConst->new;
40 my $caf = CAFHorse->new;
42 my $acc_rounds = 1_000_000;
43 my $ins_rounds = 1_000_000;
46 cmpthese($acc_rounds, {
47 Moose => sub { $moose->foo(23) },
48 MooseImmut => sub { $moose_immut->foo(23) },
49 MooseImmutNoConst => sub { $moose_immut_no_const->foo(23) },
50 CAF => sub { $caf->foo(23) },
54 cmpthese($acc_rounds, {
55 Moose => sub { $moose->foo },
56 MooseImmut => sub { $moose_immut->foo },
57 MooseImmutNoConst => sub { $moose_immut_no_const->foo },
58 CAF => sub { $caf->foo },
61 my (@moose, @moose_immut, @moose_immut_no_const, @caf_stall);
63 cmpthese($ins_rounds, {
64 Moose => sub { push @moose, MooseHorse->new(foo => 23) },
65 MooseImmut => sub { push @moose_immut, MooseHorseImmut->new(foo => 23) },
66 MooseImmutNoConst => sub { push @moose_immut_no_const, MooseHorseImmutNoConst->new(foo => 23) },
67 CAF => sub { push @caf_stall, CAFHorse->new({foo => 23}) },
70 my ( $moose_idx, $moose_immut_idx, $moose_immut_no_const_idx, $caf_idx ) = ( 0, 0, 0, 0 );
71 print "\nDESTRUCTION\n";
72 cmpthese($ins_rounds, {
74 $moose[$moose_idx] = undef;
78 $moose_immut[$moose_immut_idx] = undef;
81 MooseImmutNoConst => sub {
82 $moose_immut_no_const[$moose_immut_no_const_idx] = undef;
83 $moose_immut_no_const_idx++;
86 $caf_stall[$caf_idx] = undef;