Branch Coverage

blib/lib/SVG/Element.pm
Criterion Covered Total %
branch 89 148 60.1


line true false branch
56 687 236 if ($key =~ /^-/)
57 4 683 if ($key eq "-href")
59 0 4 if $attrs{'-type'}
60 0 4 if $attrs{'-role'}
61 2 2 if $attrs{'-title'}
62 1 3 if $attrs{'-show'}
64 0 4 if $attrs{'-arcrole'}
66 1 3 if $attrs{'-actuate'}
82 79 5 if $key =~ /^-/
83 0 5 if (ref($self->{$key}) =~ /^SVG/)
100 1732 309 if ($k =~ /^-/)
101 0 309 if (ref $self->{$k} eq 'ARRAY') { }
5 304 elsif (ref $self->{$k} eq 'HASH') { }
304 0 elsif (ref $self->{$k} eq '') { }
113 27 122 if ($self->{'-name'} eq 'comment' and $self->{'-comment'}) { }
29 93 elsif ($self->{'-name'} eq 'document') { }
119 27 2 unless $self->{'-inline'}
122 2 27 if $self->{'-document'}{'-pi'}
125 27 2 unless $self->{'-inline'}
129 29 0 if (ref($k) =~ /^SVG::Element/)
140 54 39 if (defined $self->{'-childs'} or $is_cdataish) { }
142 52 2 unless $self->{'-inline'} and $self->{'-name'}
147 77 0 if (ref($k) =~ /^SVG::Element/)
152 13 41 if (defined $self->{'-cdata'})
155 3 51 if (defined $self->{'-CDATA'})
158 1 53 if (defined $self->{'-cdata_noxmlesc'})
164 37 17 unless ($is_cdataish)
187 0 0 if $k =~ /^-/
188 0 0 if (ref $self->{$k} eq 'ARRAY') { }
0 0 elsif (ref $self->{$k} eq 'HASH') { }
0 0 elsif (ref $self->{$k} eq '') { }
199 0 0 if ($self->{'-comment'}) { }
0 0 elsif ($self->{'-pi'}) { }
0 0 elsif ($self->{'-name'} eq 'document') { }
214 0 0 if (ref($k) =~ /^SVG::Element/)
221 0 0 if (defined $self->{'-childs'}) { }
228 0 0 if ($self->{'-cdata'}) { }
0 0 elsif ($self->{'-CDATA'}) { }
0 0 elsif ($self->{'-cdata_noxmlesc'}) { }
240 0 0 if (ref($k) =~ /^SVG::Element/)
268 118 22 unless ($self->{'-parent'})
276 0 140 if $attrs{'-namespace'}
284 42 98 unless defined $tag->{'-docref'}{'-idlist'}
288 14 126 if ($tag->{'id'})
289 2 12 if ($self->getElementByID($tag->{'id'}))
296 12 126 if (defined $tag->{'id'})
302 42 96 unless defined $tag->{'-docref'}{'-elist'}
306 113 25 unless defined $tag->{'-docref'}{'-elist'}{$tag->{'-name'}}
338 39 3 unless $svg->{'height'}
339 39 3 unless $svg->{'width'}
358 0 0 if defined $attrs{'-href'}
374 0 20 if defined $attrs{'-href'}
375 0 20 if defined $attrs{'-target'}
388 2 2 unless scalar @text
390 1 1 if $self->{'-document'}{'-pi'}
391 1 1 if @pi
414 0 1 if (lc $type eq 'path') { }
1 0 elsif (lc($type) =~ /^poly/) { }
417 0 0 if defined $attrs{'-relative'} and lc $attrs{'-relative'}
429 0 0 if defined $attrs{'-relative'} and lc $attrs{'-relative'}
432 0 0 if defined $attrs{'-closed'} and lc $attrs{'-closed'}
503 0 0 if $k =~ /\-/
505 0 0 unless ($legal{$name} =~ /\b$k\b/)
544 0 3 if ($name eq "id")
545 0 0 if ($self->getElementByID($val))
551 2 1 if (not defined $val) { }
552 2 0 if (scalar @_ == 2) { }
600 0 1 unless $attrs{'-type'}
655 0 0 unless ($type =~ /^(linear|radial)$/)
669 1 11 if ($self->{'-docref'}{'-raiseerror'}) { }
0 11 elsif ($self->{'-docref'}{'-printerror'}) { }
684 9 2934 if ($sub eq 'DESTROY') { }
698 1424 1510 unless ($package->can($sub))
704 7 2927 if $self