Ignore init_meta sub

[gitmo/MooseX-StrictConstructor.git] / lib / MooseX / StrictConstructor / Meta / Method / Constructor.pm

diff --git a/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm b/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
index 9e82ec0..19547d3 100644 (file)
--- a/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
+++ b/lib/MooseX/StrictConstructor/Meta/Method/Constructor.pm
@@ -8,7 +8,7 @@ use Moose;
 
 extends 'Moose::Meta::Method::Constructor';
 
-override '_generate_BUILDALL' => sub ## no critic RequireArgUnpacking
+override '_generate_BUILDALL' => sub
 {
     my $self = shift;
 
@@ -25,7 +25,7 @@ override '_generate_BUILDALL' => sub ## no critic RequireArgUnpacking
     $source .= <<"EOF";
 my \%attrs = (@attrs);
 
-my \@bad = sort grep { ! \$attrs{\$_} }  keys \%params;
+my \@bad = sort grep { ! \$attrs{\$_} }  keys \%{ \$params };
 
 if (\@bad) {
     Carp::confess "Found unknown attribute(s) passed to the constructor: \@bad";