line | % | coverage | branch |
135 | 50 | T | F | unless defined $name & defined $value[0] |
136 | 100 | T | F | if (lc $name eq 'date') |
145 | 100 | T | F | if (defined $headers{lc $name}) { } |
154 | 0 | T | F | if ($full_uri =~ /(.*?)\?(.*)/) |
159 | 50 | T | F | if (defined $canonical_query_string) |
160 | 50 | T | F | if ($canonical_query_string =~ /(.*?)\s.*/) |
168 | 50 | T | F | unless defined $name |
169 | 100 | T | F | unless defined $value |
172 | 100 | T | F | unless $canonical_query_string eq '' |
175 | 100 | T | F | if ($full_uri =~ m[\w/$]) |
181 | 100 | T | F | if ($path_component =~ /^\.$/) { } |
| 100 | T | F | elsif ($path_component =~ /^..$/) { } |
194 | 100 | T | F | unless $full_uri eq '/' |
195 | 100 | T | F | if ($ends_in_slash) |