Branch Coverage

blib/lib/XML/Atom/Base.pm
Criterion Covered Total %
branch 59 76 77.6


line true false branch
16 0 215 unless $obj->init(@_)
23 3 212 if (not exists $param{'Namespace'} and my $ns = $obj->element_ns)
28 53 162 unless ($elem = $param{'Elem'})
33 2 51 if (ref $ns and $ns->isa('XML::Atom::Namespace')) { }
39 2 51 if ($ns_uri and $ns_prefix) { }
69 1 1 if ($atom->version >= 1) { }
86 7 66 ref $ns eq 'XML::Atom::Namespace' ? :
90 75 0 if ($] >= 5.008)
92 75 0 unless $XML::Atom::ForceUnicode
107 7 36 ref $ns eq 'XML::Atom::Namespace' ? :
109 7 36 if (not $add and @elem)
113 13 30 if (UNIVERSAL::isa($val, 'XML::Atom::Base')) { }
119 13 9 unless ref $attr eq 'XML::LibXML::Attr'
140 0 43 if ($attr)
152 125 0 if ($] >= 5.008)
154 125 0 unless $XML::Atom::ForceUnicode
161 45 2 if (@_ == 2) { }
2 0 elsif (@_ == 3) { }
182 1 63 ref $ns eq 'XML::Atom::Namespace' ? :
183 1 63 unless my(@elem) = childlist($obj->elem, $ns_uri, $name)
185 14 49 wantarray ? :
193 1 96 if (ref $list[-1])
195 1 0 if (ref $ns_list eq 'ARRAY')
198 1 0 if (ref($ns_list) =~ /Namespace/) { }
201 0 0 if (ref $ns_list eq 'HASH') { }
0 0 elsif (not ref $ns_list and $ns_list) { }
215 25 53 if (@_) { }
232 45 125 if (@_) { }
261 1 4 if (@_)
284 4 24 if (@_) { }
303 0 17 if (@_) { }
322 76 2 if ($moniker)
325 0 5 if (@_) { }
329 5 0 wantarray ? :
340 6 4 ref $stuff && UNIVERSAL::isa($stuff, $ext_class) ? :
344 4 6 if (ref $stuff eq 'HASH')
346 33 11 unless defined $stuff->{$k}
368 0 1 if (utf8::is_utf8($xml))