1 package App::FatPacker::Trace;
4 use warnings FATAL => 'all';
11 $trace_file = $_[1] || '>>fatpacker.trace';
12 # For filtering out our own deps later.
13 # (Not strictly required as these are core only and won't have packlists, but
20 return unless $trace_file; # not imported
22 open my $trace, $trace_file
23 or die "Couldn't open $trace_file to trace to: $!";
25 for my $inc(keys %INC) {
26 next if exists $initial_inc{$inc};
27 print $trace "$inc\n";