Branch Coverage

blib/lib/XML/Generator/PerlData.pm
Criterion Covered Total %
branch 126 238 52.9


line true false branch
20 4 7 if defined $args{'Handler'}
42 1 16 if defined $args{'keymap'}
43 0 17 if defined $args{'rootname'}
44 0 17 if defined $args{'skiproot'}
45 0 17 if defined $args{'defaultname'}
46 0 17 if defined $args{'bindattrs'}
53 0 17 if (defined $args{'namespaces'})
60 1 16 if (defined $args{'processing_instructions'})
63 1 0 if (ref $args{'processing_instructions'} eq 'ARRAY') { }
0 0 elsif (ref $args{'processing_instructions'} eq 'HASH') { }
74 0 17 if (defined $args{'Handler'})
78 1 16 if (defined $args{'attrmap'})
81 1 0 ref $v ? :
86 2 15 if (defined $args{'namespacemap'})
89 2 2 ref $v ? :
94 0 17 if (defined $args{'charmap'})
97 0 0 ref $v ? :
108 1 16 if ($args{'skipelements'})
118 0 6 if scalar @_
122 1 5 if (defined $$self{'ProcessingInstructions'} and scalar @{$$self{'ProcessingInstructions'};} > 0)
130 6 0 unless (defined $$self{'SkipRoot'})
138 6 0 unless (defined $$self{'SkipRoot'})
143 6 10 if $uri eq $XML::Generator::PerlData::NS_XMLNS
144 6 4 if $uri eq $XML::Generator::PerlData::NS_XML
145 0 4 unless defined $$self{'DeclaredNamespaces'}{$uri}
161 6 0 if (defined $type) { }
177 0 0 if (defined $type) { }
202 3 15 if $self->circular($hashref)
208 1 34 if defined $$self{'Skipelements'}{$element_name}
210 0 34 if (defined $$self{'_Parents'}[-1] and defined $$self{'Attrmap'}{$$self{'_Parents'}[-1]})
212 0 0 if $name eq $element_name
216 0 34 if (defined $$self{'_Parents'}[-1] and defined $$self{'Charmap'}{$$self{'_Parents'}[-1]})
217 0 0 if (grep {$_ eq $element_name;} @{$$self{'Charmap'}{$$self{'_Parents'}[-1]};})
225 7 27 if ($type eq 'ARRAY') { }
13 14 elsif ($type eq 'HASH') { }
233 1 12 if (defined $$self{'Attrmap'}{$element_name})
237 2 1 if (grep {$_ eq $name;} @{$$self{'Attrmap'}{$element_name};})
238 0 2 if (ref $$value{$child})
267 5 11 if $self->circular($arrayref)
273 3 26 if (ref $temp_name eq 'ARRAY') { }
275 0 3 if (ref $ntest eq 'CODE') { }
286 0 29 if defined $$self{'Skipelements'}{$element_name}
292 8 21 if ($type eq 'ARRAY') { }
0 21 elsif ($type eq 'HASH') { }
300 0 0 if (defined $$self{'Attrmap'}{$element_name})
304 0 0 if (grep {$_ eq $name;} @{$$self{'Attrmap'}{$element_name};})
305 0 0 if (ref $$value{$child})
333 36 35 if ($type) { }
334 33 3 if ($type eq 'ARRAY' or $type eq 'HASH' or $type eq 'SCALAR') { }
340 3 0 if (UNIVERSAL::isa($wtf, 'HASH')) { }
0 0 elsif (UNIVERSAL::isa($wtf, 'ARRAY')) { }
0 0 elsif (UNIVERSAL::isa($wtf, 'SCALAR')) { }
367 0 4 unless (defined $args{'prefix'} and defined $args{'uri'})
377 1 8 if (scalar @_ > 0)
378 0 1 if (ref $_[0]) { }
386 0 3 if (ref $v) { }
395 2 7 wantarray ? :
410 2 0 if (scalar @_ > 0)
411 0 2 if (ref $_[0]) { }
421 2 6 if $$self{'Namespacemap'}{$uri}[$i] eq $name
423 1 7 unless scalar @{$$self{'Namespacemap'}{$uri};} > 0
432 1 6 if (scalar @_ > 0)
433 0 1 if (ref $_[0]) { }
441 0 3 if (ref $v) { }
450 2 5 wantarray ? :
456 1 0 if (scalar @_ > 0)
457 0 1 if (ref $_[0]) { }
465 0 1 if (ref $v) { }
478 1 0 if (scalar @_ > 0)
479 0 1 if (ref $_[0]) { }
486 1 0 if $$self{'Attrmap'}{$name}
494 0 0 if (scalar @_ > 0)
495 0 0 if (ref $_[0]) { }
503 0 0 if (ref $v) { }
512 0 0 wantarray ? :
518 0 0 if (scalar @_ > 0)
519 0 0 if (ref $_[0]) { }
527 0 0 if (ref $v) { }
540 0 0 if (scalar @_ > 0)
541 0 0 if (ref $_[0]) { }
548 0 0 if $$self{'Charmap'}{$name}
556 2 0 if (scalar @_ > 0)
557 0 2 if (ref $_[0]) { }
573 1 0 if (scalar @_ > 0)
574 0 1 if (ref $_[0]) { }
581 1 0 if $$self{'Keymap'}{$name}
589 0 0 if (scalar @_ > 0)
590 0 0 if (ref $_[0]) { }
605 0 0 if (scalar @_ > 0)
606 0 0 if (ref $_[0]) { }
613 0 0 if $$self{'Skipelements'}{$name}
622 1 2 if (defined $rootname)
632 0 0 if (defined $flag)
633 0 0 if ($flag == 0) { }
648 1 2 if (defined $dname)
657 1 6 if (scalar @_ > 0)
658 0 1 if (ref $_[0]) { }
667 2 5 wantarray ? :
673 0 0 if (scalar @_ > 0)
674 0 0 if (ref $_[0]) { }
686 0 0 wantarray ? :
698 0 2 if ($ref eq 'SCALAR') { }
0 2 elsif ($ref eq 'ARRAY') { }
2 0 elsif ($ref eq 'HASH') { }
742 4 53 if (defined $$self{'Keymap'}{$name}) { }
0 53 elsif (defined $$self{'Keymap'}{'*'}) { }
745 0 4 if (ref $temp_name eq 'CODE') { }
755 0 0 if (ref $temp_name eq 'CODE') { }
777 0 2 if (defined $$self{'BindAttrs'}) { }
795 2 52 if (scalar keys %{$$self{'Namespaces'};} > scalar keys %{$$self{'DeclaredNamespaces'};})
808 0 4 if ($$self{'Namespaces'}{$uri} eq '#default') { }
834 4 0 if (defined $prefix)
850 5 49 if (defined $uri and grep {$element_name eq $_;} @{$$self{'Namespacemap'}{$uri};})
867 5 49 if (defined $uri and grep {$element_name eq $_;} @{$$self{'Namespacemap'}{$uri};})
882 10 54 if (grep {$node_name eq $_;} @{$$self{'Namespacemap'}{"$ns"};})
887 10 98 if (defined $uri) { }
889 0 10 if ($prefix eq '#default') { }
898 38 60 if (defined $$self{'InScopeNamespaceStack'}[-1])
900 38 0 if ($prefix)