1 package MooseX::Object::StrictConstructor;
10 extends 'Moose::Object';
12 after 'BUILDALL' => sub
17 my %attrs = map { $_->name() => 1 } $self->meta()->compute_all_applicable_attributes();
19 my @bad = grep { ! $attrs{$_} } keys %{ $params };
23 confess "Found unknown attribute(s) passed to the constructor: @bad";