| line |
true |
false |
branch |
|
28
|
64 |
2 |
if $fh and ref $fh and $fh->can('getline') |
|
|
4 |
64 |
unless eval {
do {
$fh->can('read') if $fh and ref $fh and $fh->can('getline')
}
} |
|
29
|
26 |
38 |
unless $args |
|
39
|
47 |
693 |
unless my $headers = $fh->read_header_block |
|
46
|
469 |
0 |
if exists $headers->{'Prop-content-length'} and $headers->{'Prop-content-length'} |
|
50
|
97 |
22 |
if (exists $headers->{'Text-content-length'} and $headers->{'Text-content-length'}) |
|
56
|
7 |
6 |
if (do {
*$fh
}->{'check_digest'} and !$headers->{'Text-delta'} || $headers->{'Text-delta'} ne 'true') |
|
65
|
1 |
6 |
if $$headers{"Text-content-$algo"} ne $digest |
|
76
|
1 |
691 |
if ($headers->{'Prop-content-length'} || 0) + ($headers->{'Text-content-length'} || 0) != ($headers->{'Content-length'} || 0) |
|
80
|
1 |
34 |
if (exists $headers->{'Node-action'} and $headers->{'Node-action'} eq 'delete' and exists $headers->{'Node-kind'}) |
|
101
|
47 |
1443 |
unless defined $line |
|
103
|
699 |
744 |
unless $line eq '' |
|
112
|
1 |
2900 |
unless defined $line |
|
114
|
698 |
2202 |
if $line eq '' |
|
117
|
0 |
698 |
unless keys %$headers |
|
131
|
2 |
1275 |
unless defined $line |
|
135
|
799 |
476 |
if ($line =~ /\AK (\d+)\z/) { } |
|
|
4 |
472 |
elsif ($line =~ /\AD (\d+)\z/) { } |
|
|
471 |
1 |
elsif ($line =~ /\APROPS-END\z/) { } |
|
139
|
1 |
798 |
unless defined $line |
|
142
|
797 |
1 |
if ($line =~ /\AV (\d+)\z/) { } |
|
188
|
1698 |
0 |
if (defined $characters_read) { } |
|
189
|
1 |
1697 |
if ($characters_read != $size) |