| Subject: | failure to check init_arg |
| Date: | Fri, 28 Mar 2008 18:07:33 +0000 |
| To: | bug-MooseX-StrictConstructor [...] rt.cpan.org |
| From: | Matt S Trout <mst [...] shadowcat.co.uk> |
my %attrs = map { $_->name() => 1 } $self->meta()->compute_all_applicable_attributes();
my @bad = sort grep { ! $attrs{$_} } keys %{ $params };
has 'foo' => (init_arg => 'bar');
MyClass->new(bar => 2);
--
Matt S Trout Need help with your Catalyst or DBIx::Class project?
Technical Director http://www.shadowcat.co.uk/catalyst/
Shadowcat Systems Ltd. Want a managed development or deployment platform?
http://chainsawblues.vox.com/ http://www.shadowcat.co.uk/servers/