| blib/lib/URI/urn.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 28 | 53.5 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 1 | 2 | if $impclass |
| 23 | 2 | 0 | if ($nid =~ /^[A-Za-z\d][A-Za-z\d\-]*\z/) { } |
| 27 | 0 | 2 | if $id =~ /^\d/ |
| 31 | 2 | 0 | unless (@{"${impclass}::ISA";}) |
| 35 | 0 | 2 | if $@ and not $@ =~ /Can\'t locate.*in \@INC/ |
| 37 | 1 | 1 | unless @{"${impclass}::ISA";} |
| 41 | 0 | 0 | if $^W |
| 55 | 0 | 4 | if (@_) |
| 69 | 4 | 0 | if defined $nid |
| 76 | 1 | 4 | if (@_) |
| 79 | 1 | 0 | if (defined $new) { } |
| 87 | 2 | 3 | unless $opaque =~ s/^[^:]*:// |
| 95 | 0 | 0 | if not $nid =~ /[A-Z]/ or $nid =~ /%/ |
| 96 | 0 | 0 | if $new == $self |