Branch Coverage

Bio/Tools/GuessSeqFormat.pm
Criterion Covered Total %
branch 20 32 62.5


line true false branch
323 0 0 if (defined $file)
355 0 0 if (defined $fh)
388 0 0 if (defined $text)
462 2 43 if (defined $self->{'-text'}) { }
41 2 elsif (defined $self->{'-file'}) { }
2 0 elsif (defined $self->{'-fh'}) { }
465 0 2 unless open $fh, '<', \$text
470 1 40 unless open $fh, '<', $file
475 0 2 unless (seek $fh, 0, 1)
480 0 0 unless eval { do { require IO::Scalar } }
497 2 80 unless defined($line = readline $fh)
498 2 78 if $line =~ /^\s*$/
504 46 2606 if ($fmt->{'test'}->($line, $lineno))
514 2 42 if (defined $self->{'-fh'}) { }
516 0 2 unless seek $fh, $start_pos, 0
521 42 2 $done ? :