| line |
true |
false |
branch |
|
57
|
0 |
0 |
unless defined $val
|
|
77
|
0 |
4 |
if (@_ > 1) { }
|
|
93
|
0 |
24 |
if $line =~ /^\s*$/
|
|
94
|
4 |
20 |
unless (defined $width)
|
|
100
|
0 |
52 |
$c eq $sethotch ? :
|
|
|
68 |
52 |
$c eq $setch ? :
|
|
101
|
0 |
120 |
if $c eq $sethotch or $c eq $unsethotch
|
|
116
|
1 |
9 |
ref $self ? :
|
|
129
|
1 |
9 |
if (defined $obj)
|
|
137
|
14 |
86 |
if defined $arg{$field}
|
|
141
|
4 |
0 |
if defined $file and -r $file and not $self->{'-bits'}
|
|
143
|
0 |
10 |
if defined $file and not defined $self->get('-width')
|
|
148
|
0 |
20 |
unless defined $self->get($field)
|
|
170
|
1 |
0 |
$hotx > $width ? :
|
|
171
|
1 |
0 |
$hoty > $height ? :
|
|
203
|
16 |
332 |
if ($field =~ /^-(?:un)?set(?:hot)?ch$/o) { }
|
|
211
|
23 |
304 |
wantarray ? :
|
|
223
|
0 |
16 |
unless defined $val
|
|
224
|
0 |
16 |
if $field eq '-bits' or $field eq '-width' or $field eq '-height'
|
|
226
|
0 |
4 |
if $field eq '-hotx' and $val < $UNSET || $val >= $self->get('-width')
|
|
228
|
0 |
4 |
if $field eq '-hoty' and $val < $UNSET || $val >= $self->get('-height')
|
|
231
|
0 |
16 |
if ($field =~ /^-(?:un)?set(?:hot)?ch$/o) { }
|
|
250
|
120 |
120 |
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 |
4 |
unless $file
|
|
376
|
4 |
0 |
if (not ref $file) { }
|
|
|
0 |
0 |
elsif (ref $file eq 'SCALAR') { }
|
|
377
|
0 |
4 |
unless open $fh, $file
|
|
384
|
0 |
0 |
unless seek $file, 0, 0
|
|
389
|
4 |
12 |
if /#define.*width\s+(\d+)/o
|
|
390
|
4 |
8 |
if /#define.*height\s+(\d+)/o
|
|
391
|
0 |
8 |
if /#define.*_x_hot\s+(\d+)/o
|
|
392
|
0 |
8 |
if /#define.*_y_hot\s+(\d+)/o
|
|
395
|
0 |
4 |
unless defined $width and defined $height
|
|
398
|
0 |
4 |
unless close $fh
|
|
402
|
0 |
4 |
defined $hotx ? :
|
|
403
|
0 |
4 |
defined $hoty ? :
|
|
412
|
68 |
52 |
$val[$i] & $bit ? :
|
|
414
|
24 |
96 |
if ($x == $width)
|
|
417
|
4 |
20 |
if $y == $height
|
|
434
|
0 |
4 |
unless $file
|
|
445
|
0 |
4 |
unless open $fh, ">$file"
|
|
452
|
0 |
4 |
if $hotx > $UNSET and $hoty > $UNSET
|
|
462
|
24 |
96 |
unless defined $char[$char]
|
|
463
|
68 |
52 |
if $self->xybit($x, $y)
|
|
464
|
0 |
120 |
if $mask == $MASK
|
|
466
|
24 |
0 |
if $padded
|
|
473
|
20 |
4 |
unless $i == $#char
|
|
474
|
0 |
24 |
if $i % $ROWS == $ROWSn1
|
|
479
|
0 |
4 |
unless close $fh
|