Branch Coverage

blib/lib/Bio/NEXUS/NHXCmd.pm
Criterion Covered Total %
branch 38 54 70.3


line true false branch
53 0 34 unless (eval { do { require warnings; 1 } })
74 54 86 if (defined $command_str and $self->_is_nhx_command($command_str))
93 42 101 if (not defined $$self{'_tag_data'}) { }
102 294 0 if (defined $tag)
106 0 295 unless defined $value
131 1 17 if (scalar @self_tags != scalar @other_tags) { }
136 1 45 unless ($other->contains_tag($tag))
143 0 45 if (scalar @self_values != scalar @other_values)
148 2 43 if ($self_values[$i] ne $other_values[$i])
185 10 18 if (not ref $this) { }
10 8 elsif (ref $this eq 'ARRAY') { }
8 0 elsif (ref $this eq 'HASH') { }
222 0 1993 if (not $open_quote and $char =~ /("|')/)
227 0 1993 if ($open_quote and $char =~ /("|')/) { }
158 1835 elsif (not $open_quote and $char eq ':') { }
262 54 158 unless defined $tag
327 0 459 unless (defined $tag_name)
332 459 0 if ($self->contains_tag($tag_name)) { }
352 0 89 unless (defined $tag_name or not defined $tag_values)
357 0 89 unless (ref $tag_values eq 'ARRAY')
381 0 4 unless (defined $tag_name or not defined $tag_value)
390 0 7 unless defined $value
391 3 4 if ($value eq $tag_value)
411 0 3 unless (defined $tag_name or not defined $tag_value)
421 1 2 unless $is_value_present
423 2 1 $is_value_present ? :
440 0 0 if defined $tag_name