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
141 3 0 1 defined $file and -r $file
3 0 1 defined $file and -r $file and not $self->{'-bits'}
143 3 1 0 defined $file and not defined $self->get('-width')
226 3 1 0 $field eq '-hotx' and $val < $UNSET || $val >= $self->get('-width')
228 3 1 0 $field eq '-hoty' and $val < $UNSET || $val >= $self->get('-height')
269 0 0 0 $val =~ /^\d+$/ and $val >= 1
0 0 0 $val =~ /^#(\d+)$/ and hex $1
301 0 0 1 ref $obj and $obj->isa('Image::Xbm')
336 0 0 0 $hotch and $x == $hotx
0 0 0 $hotch and $x == $hotx and $y == $hoty
395 0 0 1 defined $width and defined $height
452 1 0 0 $hotx > $UNSET and $hoty > $UNSET

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
44 0 7 0 ref $self || $self
52 0 0 0 ref $self || $self
73 0 1 0 ref $self || $self
101 0 0 30 $c eq $sethotch or $c eq $unsethotch
115 1 3 0 ref $self || $self
157 0 1 0 ref $self || $self
196 104 1 0 ref $self || $self
217 4 0 0 ref $self || $self
224 0 0 4 $field eq '-bits' or $field eq '-width'
0 0 4 $field eq '-bits' or $field eq '-width' or $field eq '-height'
226 0 0 1 $val < $UNSET || $val >= $self->get('-width')
228 0 0 1 $val < $UNSET || $val >= $self->get('-height')
269 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
298 1 0 0 ref $self || $self
305 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')
366 0 1 0 shift() || $self->get('-file')
432 1 0 0 shift() || $self->get('-file')