Select Code to Download

Can't call method "next_hit" on an undefined value at read_blast_stats
+.pl line
    150, <GEN2> line 253 (#1)
...
Uncaught exception from user code:
    Can't call method "next_hit" on an undefined value at read_blast_s
+tats.pl line 150, <GEN2> line 253.
 at read_blast_stats.pl line 150

# Creates BioPerl input sequence stream.
my $in_seq = Bio::SeqIO->new(-file   => "<$input_file", -format => $se
+q_format );
...
# Parsing results
my $result = $blast_report->next_result();
my $hit = $result->next_hit();

# This code is inserted instead of 
# the Blasting and parsing part of the original code.
...
my $result = $blast_report->next_result();
my $hit = $result->next_hit();
print("Number of hits: ".$hit->length()."\n");