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 6 0 6 defined $file and not $self->{'-bits'}
145 6 6 0 defined $file and not defined $self->get("-width")
228 16 6 0 $field eq "-hotx" and $val < $UNSET || $val >= $self->get('-width')
230 16 6 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(__PACKAGE__)
338 0 0 0 $hotch and $x == $hotx
0 0 0 $hotch and $x == $hotx and $y == $hoty
397 0 0 6 defined $width and defined $height
454 4 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
44 0 16 0 ref $self || $self
52 0 0 0 ref $self || $self
73 0 4 0 ref $self || $self
101 0 0 120 $c eq $sethotch or $c eq $unsethotch
115 1 11 0 ref $self || $self
142 2 4 0 ref $file or -r $file
159 0 1 0 ref $self || $self
198 339 4 0 ref $self || $self
219 22 0 0 ref $self || $self
226 0 0 22 $field eq "-bits" or $field eq "-width"
0 0 22 $field eq "-bits" or $field eq "-width" or $field eq "-height"
228 0 0 6 $val < $UNSET || $val >= $self->get('-width')
230 0 0 6 $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 6 0 shift() || $self->get('-file')
434 4 0 0 shift() || $self->get('-file')