| line |
true |
false |
branch |
|
57
|
0 |
0 |
unless defined $val |
|
77
|
0 |
1 |
if (@_ > 1) { } |
|
93
|
0 |
6 |
if $line =~ /^\s*$/ |
|
94
|
1 |
5 |
unless (defined $width) |
|
100
|
0 |
13 |
$c eq $sethotch ? : |
|
|
17 |
13 |
$c eq $setch ? : |
|
101
|
0 |
30 |
if $c eq $sethotch or $c eq $unsethotch |
|
116
|
1 |
3 |
ref $self ? : |
|
129
|
1 |
3 |
if (defined $obj) |
|
137
|
5 |
35 |
if defined $arg{$field} |
|
141
|
1 |
0 |
if defined $file and -r $file and not $self->{'-bits'} |
|
143
|
0 |
4 |
if defined $file and not defined $self->get('-width') |
|
148
|
0 |
8 |
unless defined $self->get($field) |
|
170
|
1 |
0 |
$hotx > $width ? : |
|
171
|
1 |
0 |
$hoty > $height ? : |
|
203
|
7 |
104 |
if ($field =~ /^-(?:un)?set(?:hot)?ch$/o) { } |
|
211
|
17 |
88 |
wantarray ? : |
|
223
|
0 |
4 |
unless defined $val |
|
224
|
0 |
4 |
if $field eq '-bits' or $field eq '-width' or $field eq '-height' |
|
226
|
0 |
1 |
if $field eq '-hotx' and $val < $UNSET || $val >= $self->get('-width') |
|
228
|
0 |
1 |
if $field eq '-hoty' and $val < $UNSET || $val >= $self->get('-height') |
|
231
|
0 |
4 |
if ($field =~ /^-(?:un)?set(?:hot)?ch$/o) { } |
|
250
|
30 |
30 |
if (defined $val) { } |
|
268
|
0 |
0 |
if (defined $val) { } |
|
269
|
0 |
0 |
if $val =~ /^\d+$/ and $val >= 1 or lc $val eq 'black' or $val =~ /^#(\d+)$/ and hex $1 |
|
275
|
0 |
0 |
CORE::vec($self->{'-bits'}, $offset, 1) ? : |
|
287
|
0 |
0 |
if (defined $val) { } |
|
301
|
0 |
1 |
unless ref $obj and $obj->isa('Image::Xbm') |
|
305
|
0 |
1 |
if $self->get('-width') != $obj->get('-width') or $self->get('-height') != $obj->get('-height') or $self->get('-bits') ne $obj->get('-bits') |
|
336
|
0 |
0 |
if ($hotch and $x == $hotx and $y == $hoty) { } |
|
337
|
0 |
0 |
CORE::vec($bits, $bitindex, 1) ? : |
|
341
|
0 |
0 |
CORE::vec($bits, $bitindex, 1) ? : |
|
368
|
0 |
1 |
unless $file |
|
376
|
1 |
0 |
if (not ref $file) { } |
|
|
0 |
0 |
elsif (ref $file eq 'SCALAR') { } |
|
377
|
0 |
1 |
unless open $fh, $file |
|
384
|
0 |
0 |
unless seek $file, 0, 0 |
|
389
|
1 |
3 |
if /#define.*width\s+(\d+)/o |
|
390
|
1 |
2 |
if /#define.*height\s+(\d+)/o |
|
391
|
0 |
2 |
if /#define.*_x_hot\s+(\d+)/o |
|
392
|
0 |
2 |
if /#define.*_y_hot\s+(\d+)/o |
|
395
|
0 |
1 |
unless defined $width and defined $height |
|
398
|
0 |
1 |
unless close $fh |
|
402
|
0 |
1 |
defined $hotx ? : |
|
403
|
0 |
1 |
defined $hoty ? : |
|
412
|
17 |
13 |
$val[$i] & $bit ? : |
|
414
|
6 |
24 |
if ($x == $width) |
|
417
|
1 |
5 |
if $y == $height |
|
434
|
0 |
1 |
unless $file |
|
445
|
0 |
1 |
unless open $fh, ">$file" |
|
452
|
0 |
1 |
if $hotx > $UNSET and $hoty > $UNSET |
|
462
|
6 |
24 |
unless defined $char[$char] |
|
463
|
17 |
13 |
if $self->xybit($x, $y) |
|
464
|
0 |
30 |
if $mask == $MASK |
|
466
|
6 |
0 |
if $padded |
|
473
|
5 |
1 |
unless $i == $#char |
|
474
|
0 |
6 |
if $i % $ROWS == $ROWSn1 |
|
479
|
0 |
1 |
unless close $fh |