}
};
- if(@additional_use) {
- $arg .= "," . join ",", @additional_use;
- }
-
- $self->trace($arg, $args);
+ $self->trace(
+ use => \@additional_use,
+ args => $args,
+ output => $arg,
+ );
}
sub trace {
- my ($self, $arg, $args) = @_;
+ 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;
}
}