view release on metacpan or  search on metacpan

t/RefSeq.t  view on Meta::CPAN

#!/usr/bin/env perl
use utf8;

use strict;
use warnings;

use Test::More;
use Test::Needs qw(LWP::UserAgent HTTP::Request::Common Data::Stag);
use Test::RequiresInternet;

use Bio::DB::RefSeq;

my $verbose = $ENV{'BIOPERLDEBUG'} || -1;

my ($db,$seq,$seqio);
# get a single seq

$seq = $seqio = undef;