Branch Coverage

blib/lib/Bio/Phylo/Parsers/Abstract.pm
Criterion Covered Total %
branch 33 60 55.0


line true false branch
28 1 0 unless open my $handle, "<$encoding", $file_name
37 0 108 unless open my $handle, "<$encoding", \$string_value
51 0 0 if ($@)
68 0 0 if ($response->is_success or $response->status_line =~ /304/) { }
85 7 109 if ($args{'-handle'}) { }
1 108 elsif ($args{'-file'}) { }
108 0 elsif ($args{'-string'}) { }
0 0 elsif ($args{'-url'}) { }
114 0 113 if ($args{'-project'}) { }
24 89 elsif ($args{'-as_project'}) { }
132 2 114 if ($class eq 'Bio::Phylo::Parsers::Abstract')
133 1 1 if (my $format = _guess_format(_open_handle(%args))) { }
170 84 29 if ($self->_return_is_scalar) { }
172 10 74 if (my $p = $self->_project) { }
173 0 10 if (my $meta = $self->_project_meta)
184 14 13 if (my $p = $self->_project) { }
185 0 14 if (my $meta = $self->_project_meta)
215 584 0 if (my $h = $self->{'_handlers'})
216 584 0 defined $type ? :
224 1 1 if ($line =~ /^#nexus/i) { }
0 1 elsif ($line =~ /^<[^>]*nexml/) { }
0 1 elsif ($line =~ /^<[^>]*phyloxml/) { }
0 1 elsif ($line =~ /^\s*\d+\s+\d+\s*$/) { }
0 1 elsif ($line =~ /^>/) { }
0 1 elsif ($line =~ /^\@/) { }
0 1 elsif ($line =~ /^\s*\(/) { }
0 1 elsif ($line =~ /<\? xml/) { }
244 0 0 if ($line =~ /{/)
250 0 0 if ($line =~ /^<[^>]*nexml/) { }
0 0 elsif ($line =~ /^<[^>]*phyloxml/) { }