1 package MooseX::StrictConstructor::Role::Object;
9 after 'BUILDALL' => sub
17 map { $_->init_arg() }
18 $self->meta()->compute_all_applicable_attributes()
21 my @bad = sort grep { ! $attrs{$_} } keys %{ $params };
25 confess "Found unknown attribute(s) init_arg passed to the constructor: @bad";
41 MooseX::StrictConstructor::Role::Object - A role which implements a stricto constructor for Moose::Object
45 When you use C<MooseX::StrictConstructor>, your objects will have this
46 role applied to them. It provides a method modifier for C<BUILDALL()>
47 from C<Moose::Object> that implements strict argument checking for
52 Dave Rolsky, C<< <autarch@urth.org> >>
54 =head1 COPYRIGHT & LICENSE
56 Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
58 This program is free software; you can redistribute it and/or modify
59 it under the same terms as Perl itself.