From: Dave Rolsky Date: Mon, 17 Dec 2007 20:35:29 +0000 (+0000) Subject: If I'm using override might as well use super() too. X-Git-Tag: 0.04~2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02f0d8486d0e8848370b0b850f49b5ce945d9edc;p=gitmo%2FMooseX-StrictConstructor.git If I'm using override might as well use super() too. --- 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() };