| blib/lib/SeeAlso/Identifier/ISBN.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 17 | 88.2 |
| line | l | !l | condition |
|---|---|---|---|
| 17 | 27 | 5 | ref $value and scalar @_ |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 19 | 2 | 5 | 25 | defined $value and not UNIVERSAL::isa($value, 'Business::ISBN') |
| 27 | 22 | 2 | 3 | $status != 1 and $status != -2 |
| 24 | 1 | 2 | $status != 1 and $status != -2 and $status != -3 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 52 | 4 | 1 | 4 | not $value =~ /^[0-9]+$/ or $value >= 2000000000 |
| 75 | 0 | 0 | 1 | $$self eq '' or not $$self =~ /^978/ |