}
};
- if(@additional_use) {
- $arg .= "," . join ",", @additional_use;
+ $self->trace(
+ use => \@additional_use,
+ args => $args,
+ output => $arg,
+ );
+}
+
+sub trace {
+ my ($self, %opts) = @_;
+ my $use = $opts{'use'};
+ my $args = $opts{'args'};
+ my $output = $opts{'output'};
+
+ if(@$use) {
+ $output .= "," . join ",", @$use;
}
{
- local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$arg;
+ local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$output;
system $^X, @$args;
}
}