view release on metacpan or  search on metacpan

t/write_module.t  view on Meta::CPAN

  't/write_module.t'  => 'Test::PackT',
  'LICENSE'           => 'Test::LICENSE',
  'lib/Asset/Pack.pm' => 'Test::AssetPack',
);
foreach my $p ( keys %paths ) {
  my $content = path($p)->slurp_raw;
  write_module( $p, $paths{$p}, $tmpdir );
  use_ok( $paths{$p} );
  {
    no strict 'refs';
    eq_or_diff( ${"$paths{$p}::content"}, $content, "Loaded and decoded copy of $p" );
  }
}

t/write_module_binary.t  view on Meta::CPAN

}

my %paths = ( "$binfile" => "Test::BinFile", );
foreach my $p ( keys %paths ) {
  my $content = path($p)->slurp_raw;
  my $l       = length($content);
  write_module( $p, $paths{$p}, $tempdir );
  use_ok( $paths{$p} );
  {
    no strict 'refs';
    eq_or_diff( ${"$paths{$p}::content"}, $content, "Loaded and decoded $l bytes from copy of $p" );
  }
}