Condition Coverage

blib/lib/Image/Xbm.pm
Criterion Covered Total %
condition 31 95 32.6


and 3 conditions

line !l l&&!r l&&r condition
143 3 0 1 defined $file and -r $file
3 0 1 defined $file and -r $file and not $$self{'-bits'}
145 3 1 0 defined $file and not defined $self->get('-width')
228 3 1 0 $field eq '-hotx' and $val < $UNSET || $val >= $self->get('-width')
230 3 1 0 $field eq '-hoty' and $val < $UNSET || $val >= $self->get('-height')
271 0 0 0 $val =~ /^\d+$/ and $val >= 1
0 0 0 $val =~ /^#(\d+)$/ and hex $1
303 0 0 1 ref $obj and $obj->isa('Image::Xbm')
338 0 0 0 $hotch and $x == $hotx
0 0 0 $hotch and $x == $hotx and $y == $hoty
397 0 0 1 defined $width and defined $height
454 1 0 0 $hotx > $UNSET and $hoty > $UNSET

or 2 conditions

line l !l condition
319 0 0 shift() || 0

or 3 conditions

line l !l&&r !l&&!r condition
46 0 7 0 ref $self || $self
54 0 0 0 ref $self || $self
75 0 1 0 ref $self || $self
103 0 0 30 $c eq $sethotch or $c eq $unsethotch
117 1 3 0 ref $self || $self
159 0 1 0 ref $self || $self
198 104 1 0 ref $self || $self
219 4 0 0 ref $self || $self
226 0 0 4 $field eq '-bits' or $field eq '-width'
0 0 4 $field eq '-bits' or $field eq '-width' or $field eq '-height'
228 0 0 1 $val < $UNSET || $val >= $self->get('-width')
230 0 0 1 $val < $UNSET || $val >= $self->get('-height')
271 0 0 0 $val =~ /^\d+$/ and $val >= 1 or lc $val eq 'black'
0 0 0 $val =~ /^\d+$/ and $val >= 1 or lc $val eq 'black' or $val =~ /^#(\d+)$/ and hex $1
300 1 0 0 ref $self || $self
307 0 0 1 $self->get('-width') != $obj->get('-width') or $self->get('-height') != $obj->get('-height')
0 0 1 $self->get('-width') != $obj->get('-width') or $self->get('-height') != $obj->get('-height') or $self->get('-bits') ne $obj->get('-bits')
368 0 1 0 shift() || $self->get('-file')
434 1 0 0 shift() || $self->get('-file')