$source .= ";\n" if $source;
my @attrs = (
- "__INSTANCE__ => 1,",
+ '__INSTANCE__ => 1,',
map { B::perlstring($_) . ' => 1,' }
grep {defined}
map { $_->init_arg() } @{ $self->_attributes() }
=head1 SYNOPSIS
- Moose::Util::MetaRole::apply_metaclass_roles
- ( for_class => $caller,
- constructor_class_roles =>
- ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
- );
+ Moose::Util::MetaRole::apply_metaroles(
+ for_class => $caller,
+ class => {
+ constructor =>
+ ['MooseX::StrictConstructor::Role::Meta::Method::Constructor'],
+ },
+ );
=head1 DESCRIPTION