From: Dave Rolsky Date: Thu, 21 Oct 2010 13:34:25 +0000 (-0500) Subject: s/"/'/g X-Git-Tag: v0.12~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-StrictConstructor.git;a=commitdiff_plain;h=df9653e61242b4328f2391e0c5eeb7a5033fe171 s/"/'/g --- diff --git a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm index 2ec5cf8..43b2aa2 100644 --- a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm +++ b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm @@ -16,7 +16,7 @@ around '_generate_BUILDALL' => sub { $source .= ";\n" if $source; my @attrs = ( - "__INSTANCE__ => 1,", + '__INSTANCE__ => 1,', map { B::perlstring($_) . ' => 1,' } grep {defined} map { $_->init_arg() } @{ $self->_attributes() }