| blib/lib/CGI/Application/Plugin/ParsePath.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 28 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 89 | 5 | 1 | unless substr($path, -1, 1) eq '/' |
| 92 | 0 | 6 | unless defined $path |
| 94 | 0 | 6 | unless (ref $table eq 'ARRAY') |
| 105 | 0 | 24 | if ($rule =~ /$http_method_regex/) |
| 108 | 0 | 0 | unless lc $1 eq lc _http_method() |
| 114 | 15 | 9 | unless index($rule, '/') == 0 |
| 115 | 18 | 6 | if substr($rule, -1) ne '/' |
| 130 | 6 | 11 | $4 ? : |
| 135 | 0 | 24 | if ($rule =~ m[/\*/$]) |
| 140 | 0 | 24 | if $DEBUG |
| 144 | 5 | 19 | if (my(@values) = $path =~ /^$rule$/) |
| 146 | 0 | 5 | if $DEBUG |
| 149 | 3 | 2 | if @names |
| 156 | 5 | 15 | if ($param eq $rm_key) |