Branch Coverage

blib/lib/XML/NamespaceSupport.pm
Criterion Covered Total %
branch 41 62 66.1


line true false branch
31 0 1 ref $_[0] ? :
44 1 0 if $$options{'xmlns'}
45 1 0 if defined $$options{'fatal_errors'}
46 1 0 if defined $$options{'auto_prefix'}
47 0 1 if defined $$options{'xmlns_11'}
79 0 3 unless @{$$self[1];} > 1
92 0 12 unless defined $prefix or $$self[3]
100 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') { }
109 1 11 if index(lc $prefix, 'xml') == 0
112 4 7 if (defined $prefix and $prefix eq '') { }
116 1 6 if $value eq '' and not $$self[4]
117 1 5 if (not defined $prefix and $$self[3]) { }
0 5 elsif (not defined $prefix || $$self[3]) { }
120 1 0 unless exists $$self[1][-1][1]{$prefix}
151 0 0 unless not defined $prefix or $prefix eq ''
152 0 0 unless exists $$self[1][-1][1]{$prefix}
155 0 0 unless (defined $tfix)
175 3 4 if $v eq $uri
188 5 3 unless defined $uri
208 0 3 unless defined $prefix
210 1 2 if $prefix eq ''
211 2 0 if exists $$self[1][-1][1]{$prefix}
224 0 2 if ($$self[0]) { }
240 4 5 if ($$self[0]) { }
257 4 4 if ($$self[0]) { }
278 1 18 unless (my($tmp_prefix, $tmp_lname) = split(/:/, $qname, 3)) < 3
283 5 13 if (not defined $tmp_lname) { }
287 2 3 $aflag ? :
292 9 4 if (exists $$cur_map[1]{$tmp_prefix}) { }