[Bioperl-l] Bio::Serach::Result::ResultI

[Kan Nobuta]

Hi all,

I (think) installed bioperl on Mac OSX 10.3.  I wrote a short script 
(see below) and tested if the installation was successful or not.

my $in = Bio::SeqIO->new('-file'=>'./ATH1.pep', '-format'=>'Fasta');
while (my $seq = $in->next_seq() ) {
     my @params = ('program'=>'blastp', 'outfile'=>'blast.out',
		  'database'=>'./ATH1.pep' );

     my $factory = Bio::Tools::Run::StandAloneBlast->new(@params);

     my $blast_report = $factory->blastall($seq);
     print ref($blast_report), "\n";

     my $result = $blast_report->next_result;
     print ref($result), "\n";
}


I think "next_result" should return "Bio::Serach::Result::ResultI" but 
my script returns  "Bio::Serach::Result::BlastResult."  Could anyone 
help me to fix this problem?  I would greatly appreciate any help.

Thank you in advance.

Best wishes,

Kan