| blib/lib/URI/Normalize.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 4 | unless defined $uri |
| 21 | 4 | 0 | unless &blessed($uri) and $uri->isa('URI') |
| 34 | 0 | 12 | unless defined $uri |
| 36 | 8 | 4 | if (not &blessed($uri) && $uri->isa('URI')) { } |
| 49 | 0 | 39 | if $input =~ s[ ^ [.][.]? / ][]x |
| 52 | 4 | 35 | if $input =~ s[ ^ /[.] (?: / | $ ) ][/]x |
| 55 | 10 | 25 | if ($input =~ s[ ^ /[.][.] (?: / | $ ) ][/]x) |
| 57 | 5 | 5 | unless $segstart >= 0 |
| 65 | 0 | 25 | if $input =~ s/ ^ [.][.]? $ //x |