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
118 0 0 unless @$m2 == 6
122 0 0 unless @$m1 == 6
137 0 0 if (defined(my $lw = $style->{'stroke-width'}))
142 0 0 if ($lw =~ /e[mx]/u)
148 0 0 if ($lw =~ /\%/u)
157 0 0 if (defined(my $linecap = $style->{'stroke-linecap'}))
159 0 0 if ($linecap eq 'round') { }
0 0 elsif ($linecap eq 'r') { }
0 0 elsif ($linecap eq 'square') { }
0 0 elsif ($linecap eq 's') { }
168 0 0 if (defined(my $linejoin = $style->{'stroke-linejoin'}))
170 0 0 if ($linejoin eq 'round') { }
0 0 elsif ($linejoin eq 'r') { }
0 0 elsif ($linejoin eq 'bevel') { }
0 0 elsif ($linejoin eq 'b') { }
181 0 0 if (lc $stroke eq "currentcolor")
186 0 0 if ($stroke ne 'none') { }
196 0 0 if (lc $fill eq "currentcolor")
201 0 0 if (lc $fill ne 'none' and $fill ne 'transparent') { }
210 0 0 if (my $sda = $style->{'stroke-dasharray'})
212 0 0 if ($sda and $sda ne "none")
226 0 0 if ($style->{'stroke'} && $style->{'stroke'} ne 'none' && $style->{'stroke'} ne 'transparent' && $style->{'stroke-width'} // !0) { }
0 0 elsif ($style->{'fill'} and $style->{'fill'} ne 'none' and $style->{'fill'} ne 'transparent') { }
233 0 0 if ($style->{'fill'} and $style->{'fill'} ne 'none' and $style->{'fill'} ne 'transparent') { }
271 0 0 unless $warned->{$name}++ or not $self->root->verbose
282 0 0 if ($e->{'type'} eq 'e') { }
0 0 elsif ($e->{'type'} eq 't') { }
284 0 0 unless $pkg->can("process")
307 0 0 if ref $c eq "SVGPDF::TextElement"
315 0 0 unless defined $a
320 0 0 unless $a =~ /^([-+]?[\d.]+)(.*)$/u
321 0 0 if $2 eq "pt"
324 0 0 if $2 eq "" or $2 eq "px"
327 0 0 if $2 eq "cm"
328 0 0 if $2 eq "mm"
329 0 0 if $2 eq "in"
331 0 0 if ($2 eq "%")
337 0 0 if ($2 eq "em")
343 0 0 if ($2 eq "ex")
354 0 0 unless defined $a
362 0 0 if ref $desc[0] eq "HASH"
367 0 0 if exists $atts{'xlink:href'}
381 0 0 if $param =~ /^(.*):(.*)$/u
399 0 0 unless (defined $p)
400 0 0 if ($flags =~ /s/u) { }
0 0 elsif ($flags =~ /[0HUV]/u) { }
403 0 0 if $flags =~ /\!/u
412 0 0 if ($flags =~ /([huv])/u)
414 0 0 if ($p =~ /^([\d.]+)\%$/u) { }
416 0 0 if ($flags eq 'w' or $param =~ /^(?:w(?:idth)|x)?$/iu) { }
0 0 elsif ($flag eq 'h' or $param =~ /^(?:h(?:eight)?|y)$/iu) { }
444 0 0 if ref $_ eq "SVGPDF::TextElement"
452 0 0 unless not $self->root->verbose or $aw->{$tag}++
462 0 0 if ($msg and $self->root->verbose)
490 0 0 unless ($src =~ m[ ^ data: (? [^/]+ ) / (? [^;]+ ) ; (? [^,]+ ) , (? . + ) $ ]sux)
499 0 0 if ($+{'encoding'} eq 'base64') { }
517 0 0 if @_