From: Sawyer X <xsawyerx@cpan.org>
Date: Thu, 23 Feb 2012 12:21:08 +0000 (+0200)
Subject: separate tracing to a method
X-Git-Tag: v0.9.7~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abd7cf010a3586c6c2d136525b528eecc5d48f2f;hp=a64bd0c28e043ad407e97c04955f2ffd0d423181;p=p5sagit%2FApp-FatPacker.git

separate tracing to a method
---

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