Branch Coverage

File:blib/lib/XML/PP.pm
Coverage:69.4%

line%coveragebranch
83100TFif ($params->{'strict'})
8950TFif (my $logger = $self->{'logger'})
900TFunless (&Scalar::Util::blessed($logger))
940TFif ($@)
13550TFif (ref $xml_string eq "SCALAR")
14150TFunless ($xml_string)
26050TFunless ref $node eq "HASH" and $node->{'children'}
26450TFunless my $name = $child->{'name'}
267100TFif ($child->{'children'} and @{$child->{'children'};})
268100TFif (@{$child->{'children'};} == 1 and exists $child->{'children'}[0]{'text'}) { }
275100TFunless defined $value and $value ne ""
278100TFif (exists $result{$name}) { }
279100TFunless ref $result{$name} eq "ARRAY"
30350TFunless (defined $xml_ref)
3040TFif ($self->{'logger'})
31150TFunless ($$xml_ref =~ s[^\s*<([^\s/>]+)([^>]*)\s*(/?)>][]s)
31950TFif ($self_close and not $$xml_ref =~ m[^\s*</(?:\w+:)?$raw_tag\s*>])
325100TFif ($attr_string =~ s[/\s*$][])
329100TF$raw_tag =~ /^([^:]+):(.+)$/ ? :
33850TFif ($k1 eq 'xmlns' and not defined $k2) { }
100TFelsif ($k1 eq 'xmlns' and defined $k2) { }
369100TFif $attr =~ /^xmlns(?::|$)/
378100TFdefined $ns ? :
384100TFif $self_close
38750TFif ($$xml_ref =~ s/^([^<]+)//s)
390100TFif $text ne ""
39650TFif $child
40950TFunless defined $text
424100TFif ($text =~ /&([^;]*);/)
42650TFunless ($entity =~ /^(lt|gt|amp|quot|apos)$/ or $entity =~ /^#(?:x[0-9a-fA-F]+|\d+)$/)
432100TFif ($text =~ /&/)
445100TFif ($self->{'strict'}) { }
100TFelsif ($self->{'warn_on_error'}) { }
44750TFif ($self->{'logger'})
45350TFif ($self->{'logger'}) { }
45950TFif ($self->{'logger'}) { }