From: Sawyer X <xsawyerx@cpan.org>
Date: Thu, 23 Feb 2012 12:32:24 +0000 (+0200)
Subject: moved additional modules into trace() method
X-Git-Tag: v0.9.7~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a3662c8657b2d0b15a467e7b09cbd449bc5bb03;p=p5sagit%2FApp-FatPacker.git

moved additional modules into trace() method
---

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 4fc0c06..ccd0176 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -89,20 +89,22 @@ sub script_command_trace {
     }
   };
 
-  if(@additional_use) {
-    $arg .= "," . join ",", @additional_use;
-  }
-
   $self->trace(
-    output => $arg,
+    use    => \@additional_use,
     args   => $args,
+    output => $arg,
   );
 }
 
 sub trace {
   my ($self, %opts) = @_;
-  my $output = $opts{'output'};
+  my $use = $opts{'use'};
   my $args = $opts{'args'};
+  my $output = $opts{'output'};
+
+  if(@$use) {
+    $output .= "," . join ",", @$use;
+  }
 
   {
     local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$output;