9 has foo => (is => 'rw');
12 __PACKAGE__->meta->make_immutable();
17 has foo => (is => 'rw');
20 __PACKAGE__->meta->make_immutable();
23 package ClassAccessorFast;
26 use base 'Class::Accessor::Fast';
27 __PACKAGE__->mk_accessors(qw(foo));
32 use Benchmark qw(cmpthese);
34 my $moose = PlainMoose->new;
35 my $mouse = PlainMouse->new;
36 my $caf = ClassAccessorFast->new;
38 print "\nCREATION AND DESTRUCTION\n";
40 Moose => sub { my $x = PlainMoose->new(foo => 23) },
41 Mouse => sub { my $x = PlainMouse->new(foo => 23) },
42 ClassAccessorFast => sub { my $x = ClassAccessorFast->new({foo => 23}) },