view release on metacpan or  search on metacpan

lib/Alvis/Pipeline/Write.pm  view on Meta::CPAN

# $Id: Write.pm,v 1.7 2005/10/24 14:02:44 mike Exp $

package Alvis::Pipeline::Write;
use vars qw(@ISA);
@ISA = qw(Alvis::Pipeline);

use strict;
use warnings;


sub new {

t/1-read.t  view on Meta::CPAN

# $Id: 1-read.t,v 1.6 2005/10/24 12:33:47 mike Exp $

use strict;
use warnings;

use vars qw($ndocs);
BEGIN { $ndocs = 10 } # must be an even number
use Test::More tests => 3+$ndocs;

BEGIN { use_ok('Alvis::Pipeline') }