lib/App/FatPacker/Trace.pm

   1 package App::FatPacker::Trace;
   2
   3 use strict;
   4 use warnings FATAL => 'all';
   5 use B ();
   6
   7 sub import {
   8   my $open = $_[1] || '>>fatpacker.trace';
   9   open my $trace, $open
  10     or die "Couldn't open ${open} to trace to: $!";
  11   unshift @INC, sub {
  12     print $trace "$_[1]\n";
  13   };
  14   B::minus_c;
  15 }
  16
  17 1;