view release on metacpan or  search on metacpan

t/00_load.t  view on Meta::CPAN

END {print "not ok 1\n" unless $loaded;}
use Algorithm::FEC;
$loaded = 1;

use File::Temp;

my $fec = new Algorithm::FEC 3, 5, 70;

my $test = 0;

sub ok($) {
   $test++;
   print $_[0] ? "ok $test\n" : "not ok $test\n";
}

my @files = map {
   $fd = tmpfile ();
   syswrite $fd, $_ x 70;
   $_ < 2 ? $fd : [$fd, 0];
} 1..3;