[Bioperl-l] parsing BLAST html

[Aaron J Mackey]

We keep seeing this "bug" report - is there a simple way to make this
"just work" using HTML::Strip?  I.e. a Bio::SearchIO::blasthtml that just
looks like (missing various error checking, etc):

package Bio::SearchIO::blasthtml;

@ISA = qw(Bio::SearchIO::blast);

sub _initialize {
  my ($self, @args) = @_;
  $self->{_hs} = new HTML::Strip;
  return $self->SUPER::_initialize(@args);
}

sub _readline {
  my $self = shift;
  my $line = $self->SUPER::_readline(@_);
  return $self->{_hs}->parse($line);
}