Tweaks for benchmarks
gfx [Wed, 7 Oct 2009 09:49:10 +0000 (18:49 +0900)]
benchmarks/basic.pl

index e53c836..34a4f09 100644 (file)
@@ -8,8 +8,13 @@ for my $klass (qw/Moose Mouse/) {
         package ${klass}One;
         use $klass;
         has n => (
-            is  => 'rw',
-            isa => 'Int',
+            is     => 'rw',
+            isa    => 'Int',
+        );
+        has m => (
+            is      => 'rw',
+            isa     => 'Int',
+            default => 42,
         );
         no $klass;
         __PACKAGE__->meta->make_immutable;