| blib/lib/Data/FormValidator/URI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 28 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 2 | 3 | if ($opts{'default_scheme'}) |
| 39 | 1 | 1 | unless ($val =~ m[^\s*\w+://]) |
| 45 | 1 | 4 | if ($val =~ m[^\s*(\w+):/(\w.*)$]) |
| 52 | 5 | 0 | if $uri |
| 80 | 0 | 8 | unless $uri |
| 84 | 1 | 7 | unless $scheme |
| 87 | 2 | 5 | if ($opts{'schemes'}) |
| 88 | 1 | 1 | unless grep {$_ eq $scheme;} @{$opts{'schemes'};} |
| 92 | 5 | 1 | unless ($opts{'allow_userinfo'}) |
| 93 | 1 | 4 | if $uri->userinfo |
| 97 | 2 | 3 | if ($opts{'hostcheck'}) |
| 98 | 0 | 2 | unless $uri->can('host') |
| 101 | 0 | 2 | unless $host |
| 104 | 1 | 1 | unless @bits |