use Bio::Tools::Run::StandAloneBlast

[freshpetals]

Hi..
I am trying to run a bioperl program but it is giving some strange errors.My program code is as follows:

use Bio::SeqIO;
use Bio::Tools::Run::StandAloneBlast;
use Bio::DB::SwissProt;
my $database = new Bio::DB::SwissProt;
my $query = $database->get_Seq_by_id('TAUD_ECOLI');

my $factory = Bio::Tools::Run::StandAloneBlast->new(
				'program'  => 'blastp',
				'database' => 'swissprot',
				 _READMETHOD => "Blast"
			 );
my $blast_report = $factory->blastall($query);
my $result = $blast_report->next_result;
while( my $hit = $result->next_hit()) {
    print "\thit name: ", $hit->name(), 
    " significance: ", $hit->significance(), "\n";
}

The Error is :
-------------- WARNING ---------------------
MSG: cannot find path to blastall
---------------------------------------------------
Can't call method "next_resul t" on an undefined value at
C:\Perl\bin\bio tool.pl line 13.

Any help will be appreciated !!

[KevinADC]

I don't know anything about the module but the problem appears to be here:

my $factory = Bio::Tools::Run::StandAloneBlast->new(
                'program'  => 'blastp',
                'database' => 'swissprot',
                 _READMETHOD => "Blast"
             );

my guess is that the value of 'program' is wrong. Hence the warning/error: cannot find path to blastall. You will have to figure out what that should be, I have no idea. Or ask on a Bioperl forum, I think there is one if you go to the bioperl website. Or maybe a mailing list.