| blib/lib/SeeAlso/Identifier/GND.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 23 | 1 | if (defined $value) |
| 44 | 3 | 41 | unless $value =~ /^[0-9]*[0-9X]$/ |
| 45 | 0 | 41 | if length $value > 9 |
| 48 | 41 | 0 | if ($value) |
| 54 | 0 | 41 | unless $value =~ /^([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9X])$/ |
| 57 | 4 | 37 | $9 eq 'X' ? : |
| 66 | 18 | 1 | $self->valid ? : |
| 72 | 10 | 3 | $self->valid ? : |