Hash accessor should accept more than 2 arguments

[gitmo/Moose.git] / t / 200_examples / 006_example_Protomoose.t

diff --git a/t/200_examples/006_example_Protomoose.t b/t/200_examples/006_example_Protomoose.t
index 8b3d3cf..09a82aa 100644 (file)
--- a/t/200_examples/006_example_Protomoose.t
+++ b/t/200_examples/006_example_Protomoose.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 28;
+use Test::More;
 
 =pod
 
@@ -166,9 +166,9 @@ Well cause merlyn asked if it could :)
             ? $_[0]
             : $_[0]->meta->prototype_instance;
         my (undef, %params) = @_;
-       my $self = $prototype->meta->clone_object($prototype, %params);
-       $self->BUILDALL(\%params);
-       return $self;
+        my $self = $prototype->meta->clone_object($prototype, %params);
+        $self->BUILDALL(\%params);
+        return $self;
     }
 }
 
@@ -280,4 +280,4 @@ is($foo->bar, 300, '... still got the original value stored in the instance (inh
 is(Foo->bar, 100, '... still got the original value stored in the prototype (through the Foo class)');
 is(Bar->bar, 100, '... still got the original value stored in the prototype (through the Bar class)');
 
-
+done_testing;