| line |
true |
false |
branch |
|
48
|
0 |
0 |
if (ref $class) |
|
66
|
0 |
0 |
unless (defined $params{'-tkphoto'}) |
|
75
|
0 |
0 |
if (exists $params{'-file'}) |
|
88
|
0 |
0 |
if (my $option = $attr_to_option{$key}) |
|
100
|
0 |
0 |
if (my $tkphoto = delete $param{'-tkphoto'}) |
|
107
|
0 |
0 |
if (my $option = $attr_to_option{$key}) |
|
113
|
0 |
0 |
if (@configure) |
|
125
|
0 |
0 |
if (@_ == 1) { } |
|
150
|
0 |
0 |
if (my $module = $format_to_module{lc $format}) |
|
151
|
0 |
0 |
unless eval "require $module; 1" |
|
159
|
0 |
0 |
if (@_ == 2) { } |
|
194
|
0 |
0 |
if ($x < 0 or $y < 0) |
|
199
|
0 |
0 |
if (@_ > 3) { } |
|
200
|
0 |
0 |
if (lc $colour eq 'none') { } |
|
207
|
0 |
0 |
if ($x >= $tkphoto->cget('-width') or $y >= $tkphoto->cget('-height')) |
|
212
|
0 |
0 |
if ($tkphoto->transparencyGet($x, $y)) { } |
|
224
|
0 |
0 |
if ($fill and lc $colour ne 'none') { } |
|
227
|
0 |
0 |
if ($x2 >= 0 and $y2 >= 0) |
|
229
|
0 |
0 |
if ($x1 < 0) |
|
230
|
0 |
0 |
if ($y1 < 0) |
|
246
|
0 |
0 |
if (lc $colour eq 'none') |
|
252
|
0 |
0 |
if ($x1 == $x2) { } |
|
|
0 |
0 |
elsif ($y1 == $y2) { } |
|
254
|
0 |
0 |
if ($x1 < 0) |
|
258
|
0 |
0 |
if ($y1 > $y2) |
|
262
|
0 |
0 |
if ($y1 < 0) |
|
266
|
0 |
0 |
if ($x1 > $x2) |
|
275
|
0 |
0 |
if ($x1 < 0) |
|
276
|
0 |
0 |
if ($y1 < 0) |