Branch Coverage

blib/lib/XML/NamespaceSupport.pm
Criterion Covered Total %
branch 46 64 71.8


line true false branch
28 0 2 ref $_[0] ? :
41 1 1 if $options->{'xmlns'}
42 1 1 if defined $options->{'fatal_errors'}
43 1 1 if defined $options->{'auto_prefix'}
44 0 2 if defined $options->{'xmlns_11'}
73 0 3 unless @{$self->[1];} > 1
85 0 1 unless defined $prefix or $self->[3]
93 0 12 if ($prefix eq 'xml' and $value ne $XML::NamespaceSupport::NS_XML) { }
0 12 elsif ($value eq $XML::NamespaceSupport::NS_XML and $prefix ne 'xml') { }
0 24 elsif ($value eq $XML::NamespaceSupport::NS_XML and $prefix eq 'xml') { }
102 1 11 if index(lc $prefix, 'xml') == 0
105 4 7 if (defined $prefix and $prefix eq '') { }
109 1 6 if $value eq '' and not $self->[4]
110 1 5 if (not defined $prefix and $self->[3]) { }
0 5 elsif (not defined $prefix || $self->[3]) { }
113 1 0 unless exists $self->[1][-1][1]{$prefix}
142 0 0 unless defined $prefix
143 0 0 unless exists $self->[1][-1][1]{$prefix}
146 0 0 unless (defined $tfix)
165 3 4 if $v eq $uri
177 5 3 unless defined $uri
186 1 3 unless defined $declarations
199 0 3 unless defined $prefix
201 1 2 if $prefix eq ''
202 2 0 if exists $self->[1][-1][1]{$prefix}
214 0 2 if ($self->[0]) { }
229 4 5 if ($self->[0]) { }
245 4 4 if ($self->[0]) { }
265 1 18 unless (my($tmp_prefix, $tmp_lname) = split(/:/, $qname, 3)) < 3
270 5 13 if (not defined $tmp_lname) { }
274 2 3 $aflag ? :
279 9 4 if (exists $cur_map->[1]{$tmp_prefix}) { }