| lib/App/Perlbrew/HTTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 28 | 60.7 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 4 | 2 | if ($code != 127) |
| 54 | 0 | 4 | unless ($program) |
| 61 | 0 | 10 | unless $commands{$HTTP_USER_AGENT_PROGRAM} |
| 74 | 3 | 5 | if ($HTTP_VERBOSE) |
| 75 | 2 | 1 | unless ($ua eq "fetch") |
| 81 | 6 | 2 | if wantarray |
| 88 | 1 | 2 | if (-e $path) |
| 98 | 0 | 2 | if ($partial) |
| 102 | 2 | 0 | unless ($status == 0) |
| 104 | 1 | 1 | if ($? == -1) { } |
| 0 | 1 | elsif ($? & 127) { } | |
| 120 | 0 | 0 | if (ref $header eq "CODE") |
| 127 | 0 | 0 | unless open my $fh, "-|", $command |
| 137 | 0 | 0 | $cb ? : |