If I'm using override might as well use super() too.
Dave Rolsky [Mon, 17 Dec 2007 20:35:29 +0000 (20:35 +0000)]
lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm

index 45b1fd8..970bd9c 100644 (file)
@@ -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() };