use strict;
use warnings;
+use B ();
use Carp ();
use Moose::Role;
$source .= ";\n" if $source;
my @attrs = (
- "__INSTANCE__ => 1",
- map {"$_ => 1,"}
+ "__INSTANCE__ => 1,",
+ map { B::perlstring($_) . ' => 1,' }
grep {defined}
map { $_->init_arg() } @{ $self->_attributes() }
);