From: Graham Knop Date: Sat, 7 Sep 2013 21:29:43 +0000 (-0400) Subject: wrap long line X-Git-Tag: v1.002000~16 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3946b3211d4c1adef2221543abd60c8f80088b99;p=p5sagit%2FImport-Into.git wrap long line --- diff --git a/lib/Import/Into.pm b/lib/Import/Into.pm index 59c861b..b7d645f 100644 --- a/lib/Import/Into.pm +++ b/lib/Import/Into.pm @@ -9,7 +9,8 @@ my %importers; sub _importer { my $target = shift; - my ($package, $file, $line) = $target =~ /[^0-9]/ ? ($target) : caller($target + 1); + my ($package, $file, $line) + = $target =~ /[^0-9]/ ? ($target) : caller($target + 1); my $code = qq{package $package;\n} . ($file ? "#line $line \"$file\"\n" : '') . 'sub { my $m = splice @_, 1, 1; shift->$m(@_) };'."\n";