use strict;
use warnings;
+use B ();
use Carp ();
use Moose::Role;
$source .= ";\n" if $source;
my @attrs = (
- map {"$_ => 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