line |
true |
false |
branch |
36
|
0 |
4 |
if (ref $class) |
39
|
0 |
0 |
if ($$self{'-filehandle'}) |
46
|
0 |
4 |
if (defined $params{'-file'}) |
54
|
0 |
4 |
if ($$self{'-filehandle'}) |
61
|
0 |
1 |
if ($$self{'-filehandle'}) |
63
|
0 |
0 |
if (exists $param{$key}) |
68
|
0 |
0 |
if (exists $param{$key}) |
77
|
0 |
0 |
if (defined $$self{$key} and !defined($newval) || $newval ne $$self{$key}) |
85
|
0 |
0 |
if (defined $$self{$key} and !defined($newval) || $newval != $$self{$key}) |
95
|
0 |
0 |
unless print $fh @_, "\n" |
116
|
0 |
0 |
if ($$self{'save_done'}) |
121
|
0 |
0 |
unless (defined $filename) |
127
|
0 |
0 |
unless (defined $width and defined $height) |
139
|
0 |
0 |
unless open my $fh, '>', $filename |
142
|
0 |
0 |
defined($title = $$self{'-title'}) ? : |
|
0 |
0 |
defined($description = $$self{'-description'}) ? : |
|
0 |
0 |
unless print $fh qq[\n\n |
165
|
0 |
0 |
if (my $fh = delete $$self{'-filehandle'}) |
166
|
0 |
0 |
unless close $fh |
173
|
0 |
0 |
if (@_ > 1) { } |
189
|
0 |
0 |
if (@_ == 3) { } |
204
|
0 |
0 |
unless ($fill) |
210
|
0 |
0 |
$fill ? : |
226
|
0 |
0 |
unless ($fill) |
230
|
0 |
0 |
$fill ? : |
256
|
0 |
0 |
if ($fill) { } |
267
|
0 |
0 |
$fill ? : |
293
|
0 |
0 |
unless $entity{$1} |