Branch Coverage

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


line true false branch
29 1 0 unless open my $handle, "<$encoding", $file_name
38 0 108 unless open my $handle, "<$encoding", \$string_value
52 0 0 if ($@)
69 0 0 if ($response->is_success or $response->status_line =~ /304/) { }
86 7 109 if ($args{'-handle'}) { }
1 108 elsif ($args{'-file'}) { }
108 0 elsif ($args{'-string'}) { }
0 0 elsif ($args{'-url'}) { }
115 0 113 if ($args{'-project'}) { }
24 89 elsif ($args{'-as_project'}) { }
133 2 114 if ($class eq 'Bio::Phylo::Parsers::Abstract')
134 1 1 if (my $format = _guess_format(_open_handle(%args))) { }
171 84 29 if ($self->_return_is_scalar) { }
173 10 74 if (my $p = $self->_project) { }
174 0 10 if (my $meta = $self->_project_meta)
185 14 13 if (my $p = $self->_project) { }
186 0 14 if (my $meta = $self->_project_meta)
216 584 0 if (my $h = $self->{'_handlers'})
217 584 0 defined $type ? :
225 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/) { }
245 0 0 if ($line =~ /{/)
251 0 0 if ($line =~ /^<[^>]*nexml/) { }
0 0 elsif ($line =~ /^<[^>]*phyloxml/) { }