| blib/lib/Image/MetaData/JPEG.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 31 | 37 | 83.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 283 | 372 | 30 | 252 | $regex && !($name =~ /$regex/) |
| 302 | 587 | 7 | 59 | $$this{'read_only'} and $flag |
| 319 | 591 | 19 | 37 | $name eq 'EOI' and $offset < $isize |
| 364 | 16 | 19 | 654 | $offset < $length && ${$this->get_data($offset, 1);} eq $punctuation |
| 457 | 257 | 1 | 414 | defined $regex and length $regex > 0 |
| 463 | 532 | 0 | 140 | defined $do_indexes && $do_indexes eq 'INDEXES' |
| 482 | 3 | 1 | 26 | defined $regex and length $regex > 0 |
| 524 | 52 | 1 | 1 | $pos == 0 and $$this{'segments'}[0]{'name'} eq 'SOI' |
| line | l | !l | condition | |
|---|---|---|---|---|
| 32 | 19 | 2 | $$this{'filename'} || ' |
|
| 99 | 10 | 63 | $ctor_error_message || undef | |
| 514 | 55 | 0 | 0 | ref $_ eq 'Image::MetaData::JPEG::Segment' or $this->die('$segref is not a reference') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 216 | 0 | 0 | 1985 | not defined $read or $read < $length |
| 521 | 0 | 1 | 54 | $pos < 0 or $pos > $max_pos |