Branch Coverage

blib/lib/XML/NamespaceSupport.pm
Criterion Covered Total %
branch 48 64 75.0


line true false branch
28 0 5 ref $_[0] ? :
41 5 0 if $options->{'xmlns'}
42 5 0 if defined $options->{'fatal_errors'}
43 5 0 if defined $options->{'auto_prefix'}
44 0 5 if defined $options->{'xmlns_11'}
73 0 3 unless @{$self->[1];} > 1
85 0 1 unless defined $prefix or $self->[3]
93 0 18 if ($prefix eq 'xml' and $value ne $XML::NamespaceSupport::NS_XML) { }
0 18 elsif ($value eq $XML::NamespaceSupport::NS_XML and $prefix ne 'xml') { }
0 36 elsif ($value eq $XML::NamespaceSupport::NS_XML and $prefix eq 'xml') { }
102 1 17 if index(lc $prefix, 'xml') == 0
105 4 13 if (defined $prefix and $prefix eq '') { }
109 1 12 if $value eq '' and not $self->[4]
110 1 11 if (not defined $prefix and $self->[3]) { }
0 11 elsif (not defined $prefix || $self->[3]) { }
113 1 0 unless exists $self->[1][-1][1]{$prefix}
143 2 2 if not defined $prefix or $prefix eq ''
144 1 1 unless exists $self->[1][-1][1]{$prefix}
147 0 1 unless (defined $tfix)
166 5 10 if $v eq $uri
178 5 3 unless defined $uri
187 0 3 unless defined $declarations
200 0 9 unless defined $prefix
202 1 8 if $prefix eq ''
203 6 2 if exists $self->[1][-1][1]{$prefix}
215 0 2 if ($self->[0]) { }
230 4 5 if ($self->[0]) { }
246 4 4 if ($self->[0]) { }
266 1 18 unless (my($tmp_prefix, $tmp_lname) = split(/:/, $qname, 3)) < 3
271 5 13 if (not defined $tmp_lname) { }
275 2 3 $aflag ? :
280 9 4 if (exists $cur_map->[1]{$tmp_prefix}) { }