line |
true |
false |
branch |
55
|
1 |
26 |
if (ref $class) |
58
|
1 |
0 |
unless (defined $params{'-imager'}) |
67
|
23 |
4 |
unless (defined $params{'-imager'}) |
71
|
20 |
3 |
unless (defined $filename) |
74
|
4 |
16 |
unless (defined $width) |
75
|
4 |
16 |
unless (defined $height) |
87
|
0 |
26 |
if ($want_load and defined $params{'-file'}) |
108
|
6 |
1027 |
if (my $tag = $attr_to_tag{$key}) |
113
|
1024 |
3 |
if (my $method = $attr_to_get_method{$key}) |
135
|
0 |
47 |
if (exists $param{$key}) |
141
|
26 |
21 |
if (my $i = delete $param{'-imager'}) |
146
|
12 |
35 |
if (exists $param{'-file_format'}) |
148
|
11 |
1 |
if (defined $format) |
154
|
6 |
28 |
if (my $tag = $attr_to_tag{$key}) |
163
|
4 |
24 |
if (my $attribute = $attr_to_img_set{$key}) |
167
|
2 |
45 |
if (@set) |
178
|
0 |
2 |
if (@_ == 1) { } |
184
|
1 |
1 |
unless $i->read('file', $filename) |
195
|
0 |
1 |
unless $i->read('fh', $fh) |
202
|
13 |
0 |
if (@_ == 2) { } |
215
|
2 |
11 |
unless $i->write('file', $filename, 'type', $type, 'jpegquality', $quality, 'tiff_jpegquality', $quality) |
226
|
0 |
1 |
unless $i->write('fh', $fh, 'type', _imager_get_file_format($i)) |
235
|
42 |
2680 |
if (@_ == 4) { } |
240
|
6 |
2674 |
unless (defined $cobj) |
278
|
6 |
20 |
if (not $diam & 1 and $y2 - $y1 == $diam) { } |
299
|
13 |
13 |
if ($fill) { } |
318
|
6 |
7 |
$yeven ? : |
|
4 |
9 |
$xeven ? : |
|
6 |
7 |
$yeven ? : |
|
4 |
9 |
$xeven ? : |
|
0 |
13 |
$fill ? : |