| line |
true |
false |
branch |
|
35
|
2 |
3 |
if not $INC{$r} |
|
38
|
0 |
13 |
@_ ? : |
|
39
|
4 |
9 |
ref $v eq 'ARRAY' ? : |
|
49
|
2 |
2 |
if ($q eq 'iautoload') { } |
|
|
1 |
1 |
elsif ($q eq 'oautoload') { } |
|
|
1 |
0 |
elsif ($q eq 'sane') { } |
|
58
|
5 |
3 |
if (my $s = $1) { } |
|
83
|
0 |
0 |
if (my $r = *{"${p}::$from";}{'CODE'}) |
|
98
|
0 |
3 |
if $INC{$r} or *$f{'CODE'} |
|
123
|
1 |
0 |
if eval {
do {
$o = $_->new->pretty->canonical
}
} |
|
132
|
0 |
0 |
unless (ref $f) |
|
134
|
0 |
0 |
if $f & 1 |
|
135
|
0 |
0 |
if $f & 2 |
|
139
|
0 |
0 |
if ($f->{'feed-stdin'}) |
|
142
|
0 |
0 |
if (not $pid = fork) { } |
|
152
|
0 |
0 |
unless $l |
|
153
|
0 |
0 |
if ($l or $a eq '|') { } |
|
154
|
0 |
0 |
if not $l or $f->{'capture-stdout'} |
|
157
|
0 |
0 |
unless $l and $f->{'substitute'} |
|
158
|
0 |
0 |
if (not $pid) { } |
|
160
|
0 |
0 |
if $pr |
|
162
|
0 |
0 |
if $w |
|
165
|
0 |
0 |
unless open $f, $h->{'mode'}, $h->{'from'} |
|
|
0 |
0 |
if (ref \$h->{'from'} eq 'SCALAR') { } |
|
180
|
0 |
0 |
if ($f->{'asynchronous'}) { } |
|
181
|
0 |
0 |
if $f->{'capture-stdout'} |
|
182
|
0 |
0 |
if ($f->{'compact'}) { } |
|
|
0 |
0 |
elsif ($f->{'capture-stdout'}) { } |
|
184
|
0 |
0 |
wantarray ? : |
|
186
|
0 |
0 |
if ($f->{'capture-stdout'}) |
|
187
|
0 |
0 |
unless wantarray |
|
191
|
0 |
0 |
waitpid($_, 0) == -1 ? : |
|
194
|
0 |
0 |
if ($f->{'compact'}) { } |
|
|
0 |
0 |
elsif ($f->{'capture-stdout'}) { } |
|
195
|
0 |
0 |
wantarray ? : |
|
196
|
0 |
0 |
wantarray ? : |
|
203
|
0 |
0 |
if (not $a =~ /^-/) { } |
|
|
0 |
0 |
elsif ($a =~ /^--?$/) { } |
|
|
0 |
0 |
elsif ($a =~ /^--(.*?)=(.*)$/) { } |
|
|
0 |
0 |
elsif ($a =~ /^--?(.*)$/) { } |
|
212
|
0 |
0 |
if (exists $h->{$k}) { } |
|
213
|
0 |
0 |
if ref $h->{$k} ne 'ARRAY' |
|
223
|
0 |
0 |
$s->{'arm'} ? : |
|
|
0 |
0 |
$s->{'i386'} ? : |
|
239
|
0 |
0 |
unless unlink $_ |
|
|
0 |
0 |
if (-e $_) { } |
|
|
0 |
0 |
elsif (m[(.*/)]) { } |
|
240
|
0 |
0 |
unless -d $_ |
|
241
|
0 |
0 |
unless open my $fh, '>', $_ |
|
242
|
0 |
0 |
if (@_) { } |
|
255
|
0 |
0 |
if ($o->{'method'} eq 'POST') |
|
264
|
0 |
0 |
if $url =~ m[(.*)://(.*)] |
|
265
|
0 |
0 |
if ($url =~ m[(.*?)(/.*)]) { } |
|
272
|
0 |
0 |
if eval {
do {
$r->{'hv'}{'content-encoding'} eq 'gzip'
}
} |
|
273
|
0 |
0 |
if ($o->{'json'}) { } |
|
|
0 |
0 |
elsif ($o->{'plain'}) { } |
|
|
0 |
0 |
elsif ($o->{'html'}) { } |
|
|
0 |
0 |
elsif ($o->{'save'}) { } |
|
277
|
0 |
0 |
unless $r->{'status-code'} == 200 |
|
287
|
0 |
0 |
unless ($pool->{$hk}) |
|
289
|
0 |
0 |
if ($x->{'protocol'} eq 'https') { } |
|
304
|
0 |
0 |
if ($@ or not $b) { } |
|
305
|
0 |
0 |
if ($@) { } |
|
308
|
0 |
0 |
if ($f->{'range'} and length $h->{'c'}) |
|
310
|
0 |
0 |
unless exists $x->{'hv'}{'range'} |
|
314
|
0 |
0 |
if ($x->{'protocol'} eq 'https') { } |
|
318
|
0 |
0 |
if http_parse($h, $b) |
|
324
|
0 |
0 |
if $err |
|
325
|
0 |
0 |
unless socket my $fh, $a->{'family'}, 1, 0 |
|
326
|
0 |
0 |
unless connect $fh, $a->{'addr'} |
|
357
|
0 |
0 |
if ($h->{'rl'} eq 'line') { } |
|
359
|
0 |
0 |
if ($b =~ /\n/g) { } |
|
362
|
0 |
0 |
if ($h->{'st'} eq 'reading-header') { } |
|
|
0 |
0 |
elsif ($h->{'st'} eq 'reading-chunk-size') { } |
|
|
0 |
0 |
elsif ($h->{'st'} eq 'reading-crlf') { } |
|
|
0 |
0 |
elsif ($h->{'st'} eq 'reading-trailer') { } |
|
363
|
0 |
0 |
if ($h->{'fl'}) { } |
|
364
|
0 |
0 |
if ($h->{'l'}) |
|
365
|
0 |
0 |
if ($h->{'l'} =~ m[^HTTP\s*/\s*(\d)\s*\.\s*(\d)\s+(\d{3})\s+(.*)$]) { } |
|
|
0 |
0 |
elsif ($h->{'l'} =~ m[^(.*?)\s+(.*?)\s+HTTP\s*/\s*(\d)\s*\.\s*(\d)$]) { } |
|
375
|
0 |
0 |
if (not $h->{'l'}) { } |
|
|
0 |
0 |
elsif ($h->{'l'} =~ /^\s/) { } |
|
376
|
0 |
0 |
if ($h->{'type'} eq 'reply' and $h->{'status-code'} =~ /^(1\d{2}|204|304)$/) { } |
|
|
0 |
0 |
elsif (exists $h->{'hv'}{'transfer-encoding'} and not $h->{'hv'}{'transfer-encoding'} =~ /^identity$/i) { } |
|
|
0 |
0 |
elsif (exists $h->{'hv'}{'content-length'}) { } |
|
|
0 |
0 |
elsif ($h->{'type'} eq 'reply') { } |
|
383
|
0 |
0 |
unless $h->{'rl'} |
|
391
|
0 |
0 |
if (ref $h->{'hv'}{$k} eq 'ARRAY') { } |
|
400
|
0 |
0 |
if (exists $h->{'hv'}{$k}) { } |
|
401
|
0 |
0 |
if (ref $h->{'hv'}{$k} eq 'ARRAY') { } |
|
414
|
0 |
0 |
if (not $1 =~ /^0+$/) { } |
|
420
|
0 |
0 |
unless $h->{'l'} |
|
427
|
0 |
0 |
if ($h->{'rl'} ne 'eof' and $h->{'rl'} <= length($b) - $i) { } |
|
429
|
0 |
0 |
if ($h->{'st'} eq 'reading-chunk-data') { } |
|
442
|
0 |
0 |
if ($h->{'type'} eq 'request') { } |
|
445
|
0 |
0 |
if exists $h->{'hv'}{'content-length'} |
|
450
|
0 |
0 |
if (ref $h->{'hv'}{$k} eq 'ARRAY') { } |
|
455
|
0 |
0 |
if (exists $h->{'c'}) |
|
456
|
0 |
0 |
if (exists $h->{'hv'}{'transfer-encoding'} and not $h->{'hv'}{'transfer-encoding'} =~ /^identity$/i) { } |
|
470
|
0 |
0 |
if $pkg eq 'perl' |
|
471
|
0 |
0 |
if (my $pid = fork) { } |
|
472
|
0 |
0 |
unless $pid == waitpid($pid, 0) |