X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-StrictConstructor.git;a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor%2FTrait%2FClass.pm;fp=lib%2FMooseX%2FStrictConstructor%2FTrait%2FClass.pm;h=b96e5fd22c84374a027febb82bd55b9e4c65bc0a;hp=707c75fc187a89c4d882a5d87f28e51e3fd9cac4;hb=bb64c0458ed377f9a5a7f4d4071dee8cf0821312;hpb=2c89d023a1ddcafb64035d89061e12e791ec1938 diff --git a/lib/MooseX/StrictConstructor/Trait/Class.pm b/lib/MooseX/StrictConstructor/Trait/Class.pm index 707c75f..b96e5fd 100644 --- a/lib/MooseX/StrictConstructor/Trait/Class.pm +++ b/lib/MooseX/StrictConstructor/Trait/Class.pm @@ -47,8 +47,7 @@ around '_inline_BUILDALL' => sub { return ( @source, - 'my %attrs = (' . ( join ' ', @attrs ) . ');', - 'my @bad = sort grep { !$attrs{$_} } keys %{ $params };', + 'my @bad = sort grep { !$allowed_attrs{$_} } keys %{ $params };', 'if (@bad) {', 'Moose->throw_error("Found unknown attribute(s) passed to the constructor: @bad");', '}',