| 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} |