blib/lib/SeeAlso/Identifier/ISSN.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 0 | 24 | 0.0 |
line | true | false | branch |
---|---|---|---|
72 | 0 | 0 | if ref $_ and scalar @_ |
74 | 0 | 0 | unless defined $_ |
78 | 0 | 0 | unless ($testok) |
85 | 0 | 0 | unless defined $_ |
86 | 0 | 0 | unless $_->is_valid |
99 | 0 | 0 | ${$_[0];} eq '' ? : |
117 | 0 | 0 | if (scalar @_) { } |
119 | 0 | 0 | defined $value ? : |
120 | 0 | 0 | if not $value =~ /^[0-9]+$/ or $value >= 9999999 |
122 | 0 | 0 | if ($value eq '') |
132 | 0 | 0 | length $v == 8 ? : |
144 | 0 | 0 | unless my $value = 'Business::ISSN'->new($self->value) |