view release on metacpan or  search on metacpan

t/Bio-Gonzales-Feat.t  view on Meta::CPAN

use warnings;
use Test::More;
use Data::Dumper;
use Test::Fatal;

BEGIN { use_ok('Bio::Gonzales::Feat'); }

#check recursion
my $f1 = Bio::Gonzales::Feat->new(
  seq_id => 'a',
  source => 'src1',
  type   => 'exon',
  start  => 0,
  end    => 1,

t/Bio-Gonzales-Range-Cluster.t  view on Meta::CPAN

use warnings;
use Test::More;
use Data::Dumper;
use Test::Fatal;

BEGIN {
  eval "use 5.010";
  plan skip_all => "perl 5.10 required for testing" if $@;

  use_ok('Bio::Gonzales::Range::Cluster');
}

my $ranges = [