X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Flotsa-classes.pl;h=06271ada803b7c397e8ff4562fbb0809af9f1600;hb=b918096cd8116f11fdb9668b98189b98181003a0;hp=701cd25b0cfca80d3d518e7f7d78ffdb2e4454f4;hpb=63f0e1ac4b6d03650b74760833420a361dad2e54;p=gitmo%2FMoose.git

diff --git a/benchmarks/lotsa-classes.pl b/benchmarks/lotsa-classes.pl
index 701cd25..06271ad 100644
--- a/benchmarks/lotsa-classes.pl
+++ b/benchmarks/lotsa-classes.pl
@@ -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" } @_;