Branch Coverage

blib/lib/XML/Generator/PerlData.pm
Criterion Covered Total %
branch 117 220 53.1


line true false branch
19 3 6 if defined $args{'Handler'}
41 1 11 if defined $args{'keymap'}
42 0 12 if defined $args{'rootname'}
43 0 12 if defined $args{'skiproot'}
44 0 12 if defined $args{'defaultname'}
45 0 12 if defined $args{'bindattrs'}
51 0 12 if (defined $args{'namespaces'})
58 0 12 if (defined $args{'Handler'})
64 1 11 if (defined $args{'attrmap'})
67 1 0 ref $v ? :
72 2 10 if (defined $args{'namespacemap'})
75 2 2 ref $v ? :
80 0 12 if (defined $args{'charmap'})
83 0 0 ref $v ? :
94 1 11 if ($args{'skipelements'})
105 0 3 if scalar @_
109 3 0 unless (defined $$self{'SkipRoot'})
117 3 0 unless (defined $$self{'SkipRoot'})
122 3 7 if $uri eq $XML::Generator::PerlData::NS_XMLNS
123 3 4 if $uri eq $XML::Generator::PerlData::NS_XML
124 0 4 unless defined $$self{'DeclaredNamespaces'}{$uri}
140 3 0 if (defined $type) { }
156 0 0 if (defined $type) { }
176 1 21 if defined $$self{'Skipelements'}{$element_name}
179 3 18 if (defined $$self{'_Parents'}[-1] and defined $$self{'Attrmap'}{$$self{'_Parents'}[-1]})
181 2 3 if $name eq $element_name
185 0 19 if (defined $$self{'_Parents'}[-1] and defined $$self{'Charmap'}{$$self{'_Parents'}[-1]})
186 0 0 if (grep {$_ eq $element_name;} @{$$self{'Charmap'}{$$self{'_Parents'}[-1]};})
194 4 15 if ($type eq 'ARRAY') { }
7 8 elsif ($type eq 'HASH') { }
202 1 6 if (defined $$self{'Attrmap'}{$element_name})
206 2 1 if (grep {$_ eq $name;} @{$$self{'Attrmap'}{$element_name};})
207 0 2 if (ref $$value{$child})
240 3 18 if (ref $temp_name eq 'ARRAY') { }
242 0 3 if (ref $ntest eq 'CODE') { }
254 0 21 if defined $$self{'Skipelements'}{$element_name}
261 3 18 if ($type eq 'ARRAY') { }
0 18 elsif ($type eq 'HASH') { }
269 0 0 if (defined $$self{'Attrmap'}{$element_name})
273 0 0 if (grep {$_ eq $name;} @{$$self{'Attrmap'}{$element_name};})
274 0 0 if (ref $$value{$child})
302 17 26 if ($type) { }
303 15 2 if ($type eq 'ARRAY' or $type eq 'HASH' or $type eq 'SCALAR') { }
309 2 0 if (UNIVERSAL::isa($wtf, 'HASH')) { }
0 0 elsif (UNIVERSAL::isa($wtf, 'ARRAY')) { }
0 0 elsif (UNIVERSAL::isa($wtf, 'SCALAR')) { }
336 0 4 unless (defined $args{'prefix'} and defined $args{'uri'})
346 1 8 if (scalar @_ > 0)
347 0 1 if (ref $_[0]) { }
355 0 3 if (ref $v) { }
364 2 7 wantarray ? :
379 2 0 if (scalar @_ > 0)
380 0 2 if (ref $_[0]) { }
390 2 6 if $$self{'Namespacemap'}{$uri}[$i] eq $name
392 1 7 unless scalar @{$$self{'Namespacemap'}{$uri};} > 0
401 1 6 if (scalar @_ > 0)
402 0 1 if (ref $_[0]) { }
410 0 3 if (ref $v) { }
419 2 5 wantarray ? :
425 1 0 if (scalar @_ > 0)
426 0 1 if (ref $_[0]) { }
434 0 1 if (ref $v) { }
448 1 0 if (scalar @_ > 0)
449 0 1 if (ref $_[0]) { }
456 1 0 if $$self{'Attrmap'}{$name}
464 0 0 if (scalar @_ > 0)
465 0 0 if (ref $_[0]) { }
473 0 0 if (ref $v) { }
482 0 0 wantarray ? :
488 0 0 if (scalar @_ > 0)
489 0 0 if (ref $_[0]) { }
497 0 0 if (ref $v) { }
511 0 0 if (scalar @_ > 0)
512 0 0 if (ref $_[0]) { }
519 0 0 if $$self{'Charmap'}{$name}
527 2 0 if (scalar @_ > 0)
528 0 2 if (ref $_[0]) { }
544 1 0 if (scalar @_ > 0)
545 0 1 if (ref $_[0]) { }
552 1 0 if $$self{'Keymap'}{$name}
560 0 0 if (scalar @_ > 0)
561 0 0 if (ref $_[0]) { }
576 0 0 if (scalar @_ > 0)
577 0 0 if (ref $_[0]) { }
584 0 0 if $$self{'Skipelements'}{$name}
593 1 2 if (defined $rootname)
603 0 0 if (defined $flag)
604 0 0 if ($flag == 0) { }
619 1 2 if (defined $dname)
628 1 6 if (scalar @_ > 0)
629 0 1 if (ref $_[0]) { }
638 2 5 wantarray ? :
644 0 0 if (scalar @_ > 0)
645 0 0 if (ref $_[0]) { }
657 0 0 wantarray ? :
687 5 30 if (defined $$self{'Keymap'}{$name}) { }
0 30 elsif (defined $$self{'Keymap'}{'*'}) { }
690 0 5 if (ref $temp_name eq 'CODE') { }
700 0 0 if (ref $temp_name eq 'CODE') { }
722 0 2 if (defined $$self{'BindAttrs'}) { }
740 2 34 if (scalar keys %{$$self{'Namespaces'};} > scalar keys %{$$self{'DeclaredNamespaces'};})
753 0 4 if ($$self{'Namespaces'}{$uri} eq '#default') { }
781 4 0 if (defined $prefix)
797 5 31 if (defined $uri and grep {$element_name eq $_;} @{$$self{'Namespacemap'}{$uri};})
815 5 31 if (defined $uri and grep {$element_name eq $_;} @{$$self{'Namespacemap'}{$uri};})
830 10 68 if (grep {$node_name eq $_;} @{$$self{'Namespacemap'}{"$ns"};})
835 10 62 if (defined $uri) { }
837 0 10 if ($prefix eq '#default') { }
846 52 10 if (defined $$self{'InScopeNamespaceStack'}[-1])
848 52 0 if ($prefix)