[Bioperl-l] update: genpept module

[Dimitar Kenanov]

Hi guys,
just managed to get GenPept to give me the fasta in the full form. I 
modified GenPept in this way:

sub new {
   my($class, @args) = @_;
   my $self = $class->SUPER::new(@args);
   my ($verbose,$format)=$self->_rearrange([qw(VERBOSE FORMAT)], at args); 
#DIMITAR
   $DEFAULTFORMAT='fasta' if (defined $format); #DIMITAR
   $self->request_format($self->default_format($format));
   return $self;
}

Cheers
Dimitar