view release on metacpan or  search on metacpan

t/stat_tests.t  view on Meta::CPAN

use File::pushd qw/pushd/;

use lib 't/lib';
use PCNTest;

use Path::Class::Rule;

sub copy {
  my ($src, $dst) = @_;
  open my $fh, ">", $dst;
  print {$fh} do { local (@ARGV, $/) = $src; <> };
}

#--------------------------------------------------------------------------#

{
  my ($rule, @files);

  my $td = make_tree(qw(
    data/file1.txt
  ));