From: Toby Inkster Date: Sat, 15 Jun 2013 00:43:10 +0000 (+0100) Subject: tidy X-Git-Tag: v1.003000~53 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=99f21475b6ad64c2cb8882ab240f04f1165f3159;p=gitmo%2FMoo.git tidy --- diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm index 1291bcd..8c4b19d 100644 --- a/lib/Method/Generate/Accessor.pm +++ b/lib/Method/Generate/Accessor.pm @@ -390,11 +390,12 @@ sub _generate_die_prefix { }; "do {\n" - ." local \$Method::Generate::Accessor::CurrentArgument = " - ."${\B::perlstring($init_arg)};\n" - ." local \$Method::Generate::Accessor::CurrentAttribute = " - ."${\B::perlstring($name)};\n" - ." local \$Method::Generate::Accessor::CurrentStep = q[$prefix];\n" + .' local $Method::Generate::Accessor::CurrentArgument = ' + . B::perlstring($init_arg) . ";\n" + .' local $Method::Generate::Accessor::CurrentAttribute = ' + . B::perlstring($name) . ";\n" + .' local $Method::Generate::Accessor::CurrentStep = ' + . B::perlstring($prefix) . ";\n" .' local $Method::Generate::Accessor::OrigSigDie = $SIG{__DIE__};'."\n" .' local $SIG{__DIE__} = $__DIE__;'."\n" .$inside