view release on metacpan or  search on metacpan

t/Tester.pm  view on Meta::CPAN

my $file = $^X;

cmp_ok (-s $^X, '>', 0, "$^X has some contents");

my $data;

{
  local $/;
  open FH, $^X or die "Can't open $^X: $!";
  binmode FH;
  $data = <FH>;
}

is (length $data, -s $^X, "Read in $^X for testing");

sub test_package {
    my $package = shift;

    my $writer = $package->new();