| line |
true |
false |
branch |
|
43
|
0 |
0 |
if (ref $class) |
|
56
|
0 |
0 |
unless (defined $params{'-tkcanvas'}) |
|
59
|
0 |
0 |
exists $params{'-width'} ? : |
|
|
0 |
0 |
exists $params{'-height'} ? : |
|
66
|
0 |
0 |
if (exists $params{'-file'}) |
|
81
|
0 |
0 |
if (my $option = $attr_to_option{$key}) |
|
93
|
0 |
0 |
if (my $tkcanvas = delete $param{'-tkcanvas'}) |
|
100
|
0 |
0 |
if (my $option = $attr_to_option{$key}) |
|
105
|
0 |
0 |
if (@configure) |
|
124
|
0 |
0 |
unless (defined $format) |
|
126
|
0 |
0 |
if (my $module = $format_to_module{$format}) |
|
127
|
0 |
0 |
unless eval "require $module; 1" |
|
135
|
0 |
0 |
if (@_ == 2) { } |
|
143
|
0 |
0 |
if ($format eq 'fig') { } |
|
147
|
0 |
0 |
if (defined $ret) |
|
172
|
0 |
0 |
if (@_ > 3) { } |
|
178
|
0 |
0 |
unless (defined $item) |
|
186
|
0 |
0 |
if ($type eq 'rectangle' or $type eq 'oval' or $type eq 'polygon' or $type eq 'arc') |
|
193
|
0 |
0 |
if ($type eq 'line' or $type eq 'text') |
|
196
|
0 |
0 |
if ($type eq 'window') |
|
206
|
0 |
0 |
if ($anchor_is_xright{$anchor}) { } |
|
|
0 |
0 |
elsif ($anchor_is_xcentre{$anchor}) { } |
|
211
|
0 |
0 |
if ($anchor_is_ybot{$anchor}) { } |
|
|
0 |
0 |
elsif ($anchor_is_ycentre{$anchor}) { } |
|
229
|
0 |
0 |
if ($x < 0 or $y < 0 or $x >= $width or $y >= $height) |
|
259
|
0 |
0 |
$fill ? : |
|
269
|
0 |
0 |
$fill ? : |
|
303
|
0 |
0 |
$fill ? : |
|
304
|
0 |
0 |
$yeven ? : |
|
|
0 |
0 |
$xeven ? : |
|
|
0 |
0 |
$yeven ? : |
|
|
0 |
0 |
$xeven ? : |
|
|
0 |
0 |
$fill ? : |
|
|
0 |
0 |
$fill ? : |