3 use Benchmark qw/cmpthese/;
6 for my $klass (qw/Moose Mouse/) {
8 package [% klass %]One;
15 __PACKAGE__->meta->make_immutable;
23 map { my $x = $_; $_ => sub { $x->new(n => 3) } }
29 print "---- new,set\n";
32 map { my $y = $_; $_ => sub { $y->new(n => 3)->n(5) } }