[p5sagit/App-FatPacker.git] / lib / App / FatPacker / Trace.pm

package App::FatPacker::Trace;

use strict;
use warnings FATAL => 'all';
use B ();

sub import {
  my $open = $_[1] || '>>fatpacker.trace';
  open my $trace, $open
    or die "Couldn't open ${open} to trace to: $!";
  unshift @INC, sub {
    print $trace "$_[1]\n";
  };
  B::minus_c;
}

1;
Commit	Line	Data
48af1939	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;