| lib/Image/Info.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 11 | 63.6 |
| line | l | !l | condition |
|---|---|---|---|
| 185 | 18 | 0 | shift() || (return) |
| 186 | 17 | 1 | $img->{'width'} || (return) |
| 187 | 17 | 0 | $img->{'height'} || (return) |
| 227 | 107 | 81 | $v ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 119 | 25 | 0 | 0 | eval { do { require PerlIO::scalar; "PerlIO::scalar"->VERSION("0.21") } } or not eval { do { require IO::Scalar; 1 } } |