From: Sawyer X <xsawyerx@cpan.org>
Date: Thu, 23 Feb 2012 12:24:23 +0000 (+0200)
Subject: move trace arguments to hash to make it more flexible
X-Git-Tag: v0.9.7~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4704b1ae0f78b1694f495083a3ccc91518be63f;p=p5sagit%2FApp-FatPacker.git

move trace arguments to hash to make it more flexible
---

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index cdbb400..4fc0c06 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -93,14 +93,19 @@ sub script_command_trace {
     $arg .= "," . join ",", @additional_use;
   }
 
-  $self->trace($arg, $args);
+  $self->trace(
+    output => $arg,
+    args   => $args,
+  );
 }
 
 sub trace {
-  my ($self, $arg, $args) = @_;
+  my ($self, %opts) = @_;
+  my $output = $opts{'output'};
+  my $args = $opts{'args'};
 
   {
-    local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$arg;
+    local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$output;
     system $^X, @$args;
   }
 }