separate tracing to a method

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 0c11330..cdbb400 100644 (file)
--- 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;