Branch Coverage

blib/lib/XML/Generator/PerlData.pm
Criterion Covered Total %
branch 129 238 54.2


line true false branch
21 4 7 if defined $args{'Handler'}
43 1 16 if defined $args{'keymap'}
44 0 17 if defined $args{'rootname'}
45 0 17 if defined $args{'skiproot'}
46 0 17 if defined $args{'defaultname'}
47 0 17 if defined $args{'bindattrs'}
54 0 17 if (defined $args{'namespaces'})
61 1 16 if (defined $args{'processing_instructions'})
64 1 0 if (ref $args{'processing_instructions'} eq 'ARRAY') { }
0 0 elsif (ref $args{'processing_instructions'} eq 'HASH') { }
75 0 17 if (defined $args{'Handler'})
79 1 16 if (defined $args{'attrmap'})
82 1 0 ref $v ? :
87 2 15 if (defined $args{'namespacemap'})
90 2 2 ref $v ? :
95 0 17 if (defined $args{'charmap'})
98 0 0 ref $v ? :
109 1 16 if ($args{'skipelements'})
119 0 6 if scalar @_
123 1 5 if (defined $self->{'ProcessingInstructions'} and scalar @{$self->{'ProcessingInstructions'};} > 0)
131 6 0 unless (defined $self->{'SkipRoot'})
139 6 0 unless (defined $self->{'SkipRoot'})
144 6 10 if $uri eq $XML::Generator::PerlData::NS_XMLNS
145 6 4 if $uri eq $XML::Generator::PerlData::NS_XML
146 0 4 unless defined $self->{'DeclaredNamespaces'}{$uri}
162 6 0 if (defined $type) { }
178 0 0 if (defined $type) { }
203 3 15 if $self->circular($hashref)
209 1 34 if defined $self->{'Skipelements'}{$element_name}
211 3 31 if (defined $self->{'_Parents'}[-1] and defined $self->{'Attrmap'}{$self->{'_Parents'}[-1]})
213 2 3 if $name eq $element_name
217 0 32 if (defined $self->{'_Parents'}[-1] and defined $self->{'Charmap'}{$self->{'_Parents'}[-1]})
218 0 0 if (grep {$_ eq $element_name;} @{$self->{'Charmap'}{$self->{'_Parents'}[-1]};})
226 7 25 if ($type eq 'ARRAY') { }
13 12 elsif ($type eq 'HASH') { }
234 1 12 if (defined $self->{'Attrmap'}{$element_name})
238 2 1 if (grep {$_ eq $name;} @{$$self{'Attrmap'}{$element_name};})
239 0 2 if (ref $value->{$child})
268 5 11 if $self->circular($arrayref)
274 3 26 if (ref $temp_name eq 'ARRAY') { }
276 0 3 if (ref $ntest eq 'CODE') { }
287 0 29 if defined $self->{'Skipelements'}{$element_name}
293 8 21 if ($type eq 'ARRAY') { }
0 21 elsif ($type eq 'HASH') { }
301 0 0 if (defined $self->{'Attrmap'}{$element_name})
305 0 0 if (grep {$_ eq $name;} @{$$self{'Attrmap'}{$element_name};})
306 0 0 if (ref $value->{$child})
334 36 33 if ($type) { }
335 33 3 if ($type eq 'ARRAY' or $type eq 'HASH' or $type eq 'SCALAR') { }
341 3 0 if (UNIVERSAL::isa($wtf, 'HASH')) { }
0 0 elsif (UNIVERSAL::isa($wtf, 'ARRAY')) { }
0 0 elsif (UNIVERSAL::isa($wtf, 'SCALAR')) { }
368 0 4 unless (defined $args{'prefix'} and defined $args{'uri'})
378 1 8 if (scalar @_ > 0)
379 0 1 if (ref $_[0]) { }
387 0 3 if (ref $v) { }
396 2 7 wantarray ? :
411 2 0 if (scalar @_ > 0)
412 0 2 if (ref $_[0]) { }
422 2 6 if $self->{'Namespacemap'}{$uri}[$i] eq $name
424 1 7 unless scalar @{$self->{'Namespacemap'}{$uri};} > 0
433 1 6 if (scalar @_ > 0)
434 0 1 if (ref $_[0]) { }
442 0 3 if (ref $v) { }
451 2 5 wantarray ? :
457 1 0 if (scalar @_ > 0)
458 0 1 if (ref $_[0]) { }
466 0 1 if (ref $v) { }
479 1 0 if (scalar @_ > 0)
480 0 1 if (ref $_[0]) { }
487 1 0 if $self->{'Attrmap'}{$name}
495 0 0 if (scalar @_ > 0)
496 0 0 if (ref $_[0]) { }
504 0 0 if (ref $v) { }
513 0 0 wantarray ? :
519 0 0 if (scalar @_ > 0)
520 0 0 if (ref $_[0]) { }
528 0 0 if (ref $v) { }
541 0 0 if (scalar @_ > 0)
542 0 0 if (ref $_[0]) { }
549 0 0 if $self->{'Charmap'}{$name}
557 2 0 if (scalar @_ > 0)
558 0 2 if (ref $_[0]) { }
574 1 0 if (scalar @_ > 0)
575 0 1 if (ref $_[0]) { }
582 1 0 if $self->{'Keymap'}{$name}
590 0 0 if (scalar @_ > 0)
591 0 0 if (ref $_[0]) { }
606 0 0 if (scalar @_ > 0)
607 0 0 if (ref $_[0]) { }
614 0 0 if $self->{'Skipelements'}{$name}
623 1 2 if (defined $rootname)
633 0 0 if (defined $flag)
634 0 0 if ($flag == 0) { }
649 1 2 if (defined $dname)
658 1 6 if (scalar @_ > 0)
659 0 1 if (ref $_[0]) { }
668 2 5 wantarray ? :
674 0 0 if (scalar @_ > 0)
675 0 0 if (ref $_[0]) { }
687 0 0 wantarray ? :
699 0 2 if ($ref eq 'SCALAR') { }
0 2 elsif ($ref eq 'ARRAY') { }
2 0 elsif ($ref eq 'HASH') { }
743 4 53 if (defined $self->{'Keymap'}{$name}) { }
0 53 elsif (defined $self->{'Keymap'}{'*'}) { }
746 0 4 if (ref $temp_name eq 'CODE') { }
756 0 0 if (ref $temp_name eq 'CODE') { }
778 0 2 if (defined $self->{'BindAttrs'}) { }
796 2 50 if (scalar keys %{$$self{'Namespaces'};} > scalar keys %{$$self{'DeclaredNamespaces'};})
809 0 4 if ($self->{'Namespaces'}{$uri} eq '#default') { }
835 4 0 if (defined $prefix)
851 5 47 if (defined $uri and grep {$element_name eq $_;} @{$$self{'Namespacemap'}{$uri};})
868 5 47 if (defined $uri and grep {$element_name eq $_;} @{$$self{'Namespacemap'}{$uri};})
883 10 50 if (grep {$node_name eq $_;} @{$self->{'Namespacemap'}{"$ns"};})
888 10 94 if (defined $uri) { }
890 0 10 if ($prefix eq '#default') { }
899 34 60 if (defined $self->{'InScopeNamespaceStack'}[-1])
901 34 0 if ($prefix)