| blib/lib/HTTP/Request/FromWget.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 31 | 16.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 222 | 40 | 0 | 0 | $segments[-1] and $segments[-1] eq '..' || $segments[-1] eq '.' |
| 232 | 0 | 0 | 0 | $segments[$i] ne ".." and $segments[$i + 1] eq ".." |
| line | l | !l | condition |
|---|---|---|---|
| 298 | 2 | 0 | $method ||= "POST" |
| 307 | 0 | 0 | $method ||= "POST" |
| 336 | 0 | 0 | $method ||= "POST" |
| 347 | 6 | 0 | $method ||= "POST" |
| 352 | 0 | 34 | $method ||= "GET" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 222 | 0 | 0 | 0 | $segments[-1] eq '..' || $segments[-1] eq '.' |
| 359 | 0 | 0 | 40 | $options->{'user'} or $options->{'http-user'} |
| 360 | 0 | 0 | 0 | $options->{'anyauth'} or $options->{'ntlm'} |
| 0 | 0 | 0 | $options->{'anyauth'} or $options->{'ntlm'} or $options->{'negotiate'} | |
| 369 | 0 | 0 | 0 | delete $options->{'user'} || delete $options->{'http-user'} |