test hashref arg for new
Arthur Axel 'fREW' Schmidt [Sat, 13 Nov 2010 16:58:41 +0000 (10:58 -0600)]
t/method-generate-constructor.t

index db10020..6a030c8 100644 (file)
@@ -51,4 +51,10 @@ is(
   'pass with both required args'
 );
 
+is(
+  exception { Bar->new({ one => 1, THREE => 3 }) },
+  undef,
+  'hashrefs also supported'
+);
+
 done_testing;