Help for this page

Select Code to Download


  1. or download this
    use Test::Utils::Dump;
use Test::Dirs; # sets up temporary scratch directories 
...
my $f = File->new();
$f->path($Test::Dirs::scratch . 'test.txt');
d $f; # d sub is in Test::Utils::Dump
  2. or download this
    package Test::Utils::Dump;
use Term::ANSIColor qw(colored);
...
    print Dumper($data);
    print $caller_line;
}