Permalink
Browse files

documentation for retrieve_blast method

svn path=/bioperl-run/trunk/; revision=12977
  • Loading branch information...
hyphaltip committed Aug 7, 2001
1 parent a76b2cf commit 4c57526dd7061b10f532e8950bd896600715ece6
Showing with 17 additions and 4 deletions.
  1. +17 −4 Bio/Tools/Run/RemoteBlast.pm
@@ -306,7 +306,7 @@ sub each_rid {
* sequence object
* array ref of sequence objects
* filename of file containing fasta formatted sequences
=cut
sub submit_blast {
@@ -323,8 +323,8 @@ sub submit_blast {
if( $response->is_success ) {
if( $self->verbose > 0 ) {
open(TMP, ">$ENV{TEMPDIR}/j.html");
print TMP $response->content;
my ($tempfh) = $self->tempfile();
print $tempfh $response->content;
}
my @subdata = split(/\n/, $response->content );
my $count = 0;
@@ -351,6 +351,19 @@ sub submit_blast {
return $tcount;
}
=head2 retrieve_blast
Title : retrieve_blast
Usage : my $blastreport = $blastfactory->retrieve_blast($rid);
Function: Attempts to retrieve a blast report from remote blast queue
Returns : -1 on error,
0 on 'job not finished',
Bio::Tools::BPlite or Bio::Tools::Blast object
(depending on how object was initialized) on success
Args : Remote Blast ID (RID)
=cut
sub retrieve_blast {
my($self, $rid) = @_;
my ($fh,$tempfile) = $self->tempfile();
@@ -363,7 +376,7 @@ sub retrieve_blast {
my $response = $self->ua->request($req, $tempfile);
if( $self->verbose > 0 ) {
open(TMP, $tempfile) or $self->throw("cannot open $tempfile");
while(<TMP>) { print $_ }
while(<TMP>) { print $_; }
close TMP;
}
if( $response->is_success ) {

0 comments on commit 4c57526

Please sign in to comment.