X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor%2FMeta%2FMethod%2FConstructor.pm;h=970bd9c9e8f6a6e2514cb2057d750c8534510f00;hb=02f0d8486d0e8848370b0b850f49b5ce945d9edc;hp=45b1fd814bb97d575ef7f74fe8b96711562f9fbd;hpb=583707172fbd74d82c2c079f430555b7a6275237;p=gitmo%2FMooseX-StrictConstructor.git

diff --git a/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm b/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
index 45b1fd8..970bd9c 100644
--- a/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
+++ b/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
@@ -12,7 +12,7 @@ override '_generate_BUILDALL' => sub ## no critic RequireArgUnpacking
 {
     my $self = shift;
 
-    my $source = $self->SUPER::_generate_BUILDALL(@_);
+    my $source = super();
     $source .= ";\n" if $source;
 
     my @attrs = map { $_->name() . ' => 1,' } @{ $self->attributes() };