Skip to content
Browse files

fix NCBIHelper bug, vars => ours

  • Loading branch information...
1 parent dd2cd5f commit 0732dbacd87cc0e53ea718f898d7c9b9518d148a Chris Fields committed Oct 5, 2013
Showing with 6 additions and 10 deletions.
  1. +6 −10 Bio/DB/NCBIHelper.pm
View
16 Bio/DB/NCBIHelper.pm
@@ -86,7 +86,6 @@ preceded with a _
package Bio::DB::NCBIHelper;
use strict;
-use vars qw($HOSTBASE %CGILOCATION %FORMATMAP $DEFAULTFORMAT $MAX_ENTRIES);
use Bio::DB::Query::GenBank;
use HTTP::Request::Common;
@@ -97,28 +96,25 @@ use URI::Escape qw(uri_unescape);
use base qw(Bio::DB::WebDBSeqI Bio::Root::Root);
-BEGIN {
- $MAX_ENTRIES = 19000;
- $HOSTBASE = 'http://eutils.ncbi.nlm.nih.gov';
- $REQUEST_DELAY = 3;
- %CGILOCATION = (
+our $HOSTBASE = 'http://eutils.ncbi.nlm.nih.gov';
+our $MAX_ENTRIES = 19000;
+our $REQUEST_DELAY = 3;
+our %CGILOCATION = (
'batch' => [ 'post' => '/entrez/eutils/epost.fcgi' ],
'query' => [ 'get' => '/entrez/eutils/efetch.fcgi' ],
'single' => [ 'get' => '/entrez/eutils/efetch.fcgi' ],
'version' => [ 'get' => '/entrez/eutils/efetch.fcgi' ],
'gi' => [ 'get' => '/entrez/eutils/efetch.fcgi' ],
'webenv' => [ 'get' => '/entrez/eutils/efetch.fcgi' ]
);
-
- %FORMATMAP = (
+our %FORMATMAP = (
'gb' => 'genbank',
'gp' => 'genbank',
'fasta' => 'fasta',
'asn.1' => 'entrezgene',
'gbwithparts' => 'genbank',
);
- $DEFAULTFORMAT = 'gb';
-}
+our $DEFAULTFORMAT = 'gb';
=head2 new

0 comments on commit 0732dba

Please sign in to comment.
Something went wrong with that request. Please try again.