( map { "$_ => 1," }
grep { defined }
map { $_->init_arg() }
- @{ $self->attributes() }
+ @{ $self->_attributes() }
);
$source .= <<"EOF";
=head1 SYNOPSIS
- use MooseX::StrictConstructor;
+ Moose::Util::MetaRole::apply_metaclass_roles
+ ( for_class => $caller,
+ constructor_class_roles =>
+ ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
+ );
=head1 DESCRIPTION