X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FConstructor.pm;h=23d9c03183a081bd2f5f1bb88fbe6fac3bf4d753;hb=a17be455d30de29a1979c1bececb5419ca3a672a;hp=1d7e74072c76722bb2a9ef9036ecfe2e84a2955c;hpb=1eba910c9cdaf6560b50f9ac5d6033bde4e84c94;p=gitmo%2FRole-Tiny.git

diff --git a/lib/Method/Generate/Constructor.pm b/lib/Method/Generate/Constructor.pm
index 1d7e740..23d9c03 100644
--- a/lib/Method/Generate/Constructor.pm
+++ b/lib/Method/Generate/Constructor.pm
@@ -81,7 +81,7 @@ sub _cap_call {
 
 sub _generate_args {
   my ($self) = @_;
-  q{    my $args = ref($_[0]) eq 'HASH' ? $_[0] : { @_ };}."\n";
+  q{    my $args = $class->BUILDARGS(@_);}."\n";
 }
 
 sub _assign_new {