added Moose with make_immutable
Todd Hepler [Tue, 15 May 2012 19:45:35 +0000 (14:45 -0500)]
it's slower than regular Moose (as expected)

benchmarks/lotsa-classes.pl

index 701cd25..06271ad 100644 (file)
@@ -20,6 +20,11 @@ my %class_writer = (
         my $attrs = join '', map { "has '$_' => ( is => 'ro', isa => 'Str' );\n" } @_;
         return qq{package $name;\nuse Moose;\n$attrs\n1;\n__END__\n};
     },
+    'MooseImmutable' => sub {
+        my $name = shift;
+        my $attrs = join '', map { "has '$_' => ( is => 'ro', isa => 'Str' );\n" } @_;
+        return qq{package $name;\nuse Moose;\n$attrs\n__PACKAGE__->meta->make_immutable;\n1;\n__END__\n};
+    },
     'Moo' => sub {
         my $name = shift;
         my $attrs = join'', map { "has '$_' => ( is => 'ro', isa => 'Str' );\n" } @_;