| blib/lib/OpenID/Lite/Identifier.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 10 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 10 | if ($uri =~ m[^xri://([\=\@\+\$\!\)].+)$]) { } |
| 0 | 10 | elsif ($uri =~ /^[\=\@\+\$\!\)]/) { } | |
| 34 | 0 | 10 | unless ($uri =~ m[^https?://]) |
| 42 | 0 | 10 | unless 'OpenID::Lite::Util::URI'->is_uri($uri) |
| 53 | 10 | 0 | if $u->port == 80 or $u->port == 443 |