| line |
true |
false |
branch |
|
147
|
5 |
70 |
if (exists $header{lc $_[1]}) { } |
|
148
|
2 |
3 |
unless ref $header{lc $_[1]} |
|
184
|
0 |
0 |
if (exists $header{lc $k}) { } |
|
185
|
0 |
0 |
unless ref $header{lc $k} |
|
224
|
121 |
0 |
unless length $uri and $uri =~ /^https?:/ |
|
226
|
0 |
121 |
ref $uri ? : |
|
230
|
0 |
173 |
if (substr($uri, 0, 3) eq '../') { } |
|
|
0 |
173 |
elsif (substr($uri, 0, 2) eq './') { } |
|
|
8 |
165 |
elsif (substr($uri, 0, 3) eq '/./') { } |
|
|
4 |
161 |
elsif (substr($uri, 0, 4) eq '/../') { } |
|
|
8 |
153 |
elsif (substr($uri, 0, 3) eq '/..') { } |
|
|
0 |
153 |
elsif (substr($uri, 0, 2) eq '/.') { } |
|
|
0 |
153 |
elsif ($uri eq '.' or $uri eq '..') { } |
|
247
|
153 |
0 |
if $uri =~ s[^(/?[^/]*)][] |
|
253
|
40 |
81 |
if (length $u->query) |
|
272
|
0 |
121 |
if (exists $header{'x-amz-date'}) { } |
|
|
121 |
0 |
elsif (exists $header{'date'}) { } |
|
327
|
0 |
61 |
unless defined $self->secret_key |
|
328
|
0 |
61 |
unless defined $self->scope |