| line |
true |
false |
branch |
|
40
|
0 |
25 |
if (ref $class) |
|
54
|
24 |
1 |
unless ($svg) |
|
55
|
17 |
7 |
exists $params{'-width'} ? : |
|
|
17 |
7 |
exists $params{'-height'} ? : |
|
79
|
8 |
23 |
if (my $tagname = $key_to_cdata{$key}) { } |
|
|
4 |
19 |
elsif (my $aname = $key_to_attribute{$key}) { } |
|
96
|
0 |
7 |
unless @_ |
|
99
|
4 |
3 |
if (my $tagname = $key_to_cdata{$key}) { } |
|
|
0 |
3 |
elsif (my $aname = $key_to_attribute{$key}) { } |
|
122
|
0 |
4 |
if (@elems) { } |
|
143
|
2 |
2 |
if (@_ == 3) { } |
|
157
|
2 |
2 |
unless ($fill) |
|
163
|
2 |
2 |
$fill ? : |
|
177
|
1 |
3 |
unless ($fill) |
|
181
|
3 |
1 |
$fill ? : |
|
205
|
2 |
1 |
if ($fill) { } |
|
216
|
2 |
1 |
$fill ? : |
|
222
|
1 |
0 |
if (@_ > 1) { } |
|
235
|
0 |
1 |
unless eval 'use SVG::Parser; 1' |
|
246
|
1 |
0 |
if (@_ > 1) { } |
|
253
|
0 |
1 |
unless open my $fh, '>', $filename |
|
256
|
0 |
1 |
unless ($self->save_fh($fh)) |
|
261
|
0 |
1 |
unless close $fh |