Branch Coverage

lib/ChordPro/lib/SVGPDF/Element.pm
Criterion Covered Total %
branch 0 152 0.0


line true false branch
11 0 0 if @_
12 0 0 if @_
13 0 0 if @_
14 0 0 if @_
15 0 0 if @_
16 0 0 if @_
36 0 0 unless $tf
43 0 0 if ($tf =~ /^\s*translate\s*\((.*?)\)(.*)/u) { }
0 0 elsif ($tf =~ /^\s*rotate\s*\((.*?)\)(.*)/u) { }
0 0 elsif ($tf =~ /^\s*scale\s*\((.*?)\)(.*)/u) { }
0 0 elsif ($tf =~ /^\s*matrix\s*\((.*?)\)(.*)/u) { }
0 0 elsif ($tf =~ /^\s*skew([XY])\s*\((.*?)\)(.*)/iu) { }
47 0 0 if ($nooptimize or $x or $y)
55 0 0 if ($nooptimize or $r)
56 0 0 if ($x or $y)
62 0 0 if ($x or $y)
72 0 0 if ($nooptimize or $x != 1 and $y != 1)
93 0 0 if ($1 eq "X")
101 0 0 if $self->root->verbose
114 0 0 if (defined(my $lw = $style->{'stroke-width'}))
119 0 0 if ($lw =~ /e[mx]/u)
123 0 0 if ($lw =~ /\%/u)
130 0 0 if (defined(my $linecap = $style->{'stroke-linecap'}))
132 0 0 if ($linecap eq 'round') { }
0 0 elsif ($linecap eq 'r') { }
0 0 elsif ($linecap eq 'square') { }
0 0 elsif ($linecap eq 's') { }
141 0 0 if (defined(my $linejoin = $style->{'stroke-linejoin'}))
143 0 0 if ($linejoin eq 'round') { }
0 0 elsif ($linejoin eq 'r') { }
0 0 elsif ($linejoin eq 'bevel') { }
0 0 elsif ($linejoin eq 'b') { }
154 0 0 if (lc $stroke eq "currentcolor")
159 0 0 if ($stroke ne 'none') { }
161 0 0 if ($stroke =~ /rgb\(([\d.]+)%,([\d.]+)%,([\d.]+)%\)/u) { }
0 0 elsif ($stroke =~ /rgb\(([\d.]+),([\d.]+),([\d.]+)\)/u) { }
176 0 0 if (lc $fill eq "currentcolor")
181 0 0 if (lc $fill ne 'none' and $fill ne 'transparent') { }
183 0 0 if ($fill =~ /rgb\(([\d.]+)%,([\d.]+)%,([\d.]+)%\)/u) { }
0 0 elsif ($fill =~ /rgb\(([\d.]+),([\d.]+),([\d.]+)\)/u) { }
197 0 0 if (my $sda = $style->{'stroke-dasharray'})
199 0 0 if ($sda and $sda ne "none")
213 0 0 if ($style->{'stroke'} && $style->{'stroke'} ne 'none' && $style->{'stroke'} ne 'transparent' && $style->{'stroke-width'} // 1) { }
0 0 elsif ($style->{'fill'} and $style->{'fill'} ne 'none' and $style->{'fill'} ne 'transparent') { }
220 0 0 if ($style->{'fill'} and $style->{'fill'} ne 'none' and $style->{'fill'} ne 'transparent') { }
255 0 0 unless $warned->{$name}++ or not $self->root->verbose
266 0 0 if ($e->{'type'} eq 'e') { }
0 0 elsif ($e->{'type'} eq 't') { }
268 0 0 unless $pkg->can("process")
291 0 0 if ref $c eq "SVGPDF::TextElement"
299 0 0 unless defined $a
304 0 0 unless $a =~ /^([-+]?[\d.]+)(.*)$/u
305 0 0 if $2 eq "pt"
308 0 0 if $2 eq "" or $2 eq "px"
311 0 0 if $2 eq "cm"
312 0 0 if $2 eq "mm"
313 0 0 if $2 eq "in"
315 0 0 if ($2 eq "%")
321 0 0 if ($2 eq "em")
327 0 0 if ($2 eq "ex")
338 0 0 unless defined $a
346 0 0 if ref $desc[0] eq "HASH"
351 0 0 if exists $atts{'xlink:href'}
365 0 0 if $param =~ /^(.*):(.*)$/u
383 0 0 unless (defined $p)
384 0 0 if ($flags =~ /s/u) { }
0 0 elsif ($flags =~ /[0HUV]/u) { }
387 0 0 if $flags =~ /\!/u
396 0 0 if ($flags =~ /([huv])/u)
398 0 0 if ($p =~ /^([\d.]+)\%$/u) { }
400 0 0 if ($flags eq 'w' or $param =~ /^(?:w(?:idth)|x)?$/iu) { }
0 0 elsif ($flag eq 'h' or $param =~ /^(?:h(?:eight)?|y)$/iu) { }
428 0 0 if ref $_ eq "SVGPDF::TextElement"
436 0 0 unless not $self->root->verbose or $aw->{$tag}++
446 0 0 if ($msg and $self->root->verbose)
472 0 0 if @_