die $@ if $@;
}
+print "Class::MOP: $Class::MOP::VERSION\n";
+print "Moose: $Moose::VERSION\n";
+print "Mouse: $Mouse::VERSION\n";
print "---- new\n";
cmpthese(
100000 => {
qw/Moose Mouse/
}
);
+
+print "---- new,get\n";
+cmpthese(
+ 100000 => {
+ map { my $y = $_; $_ => sub { $y->new(n => 3)->n() } }
+ map { "${_}One" }
+ qw/Moose Mouse/
+ }
+);