| line |
!l |
l&&!r |
l&&r |
condition |
|
29
|
43 |
0 |
0 |
@_ == 1 and ref $_[0] eq 'HASH' |
|
|
0 |
0 |
0 |
@_ == 1 and not defined $_[0] |
|
61
|
1 |
0 |
0 |
@_ == 1 and ref $_[0] eq 'HASH' |
|
|
0 |
0 |
0 |
@_ == 1 and not defined $_[0] |
|
168
|
0 |
0 |
4 |
exists $$self{'properties'} and exists $$self{'properties'}{'property'} |
|
181
|
0 |
0 |
2 |
exists $$self{'properties'} and exists $$self{'properties'}{'property'} |
|
215
|
0 |
0 |
29 |
defined $fh and eval {
do {
$fh->isa('IO::Handle')
}
} |
|
235
|
5 |
21 |
43 |
$c = $fh->getc and $c eq $NL |
|
261
|
0 |
0 |
18 |
$ret &&= $$self{'headers'}->write($fh) |
|
264
|
0 |
0 |
18 |
$ret &&= $$self{'properties'}->write($fh) |
|
|
0 |
0 |
18 |
exists $$header{'Prop-content-length'} and $$header{'Prop-content-length'} > 0 |
|
269
|
0 |
0 |
5 |
$ret &&= $$self{'contents'}->write($fh) |
|
|
13 |
0 |
5 |
exists $$header{'Text-content-length'} and $$header{'Text-content-length'} > 0 |
|
273
|
0 |
0 |
18 |
$ret &&= $fh->print(exists $$self{'delim'} ? $$self{'delim'} : $NL) |
|
316
|
17 |
0 |
0 |
$$header{'Content-length'} == 0 and not $header_existed |
|
340
|
4 |
0 |
13 |
not $header_existed and $length == 0 |
|
370
|
17 |
0 |
0 |
not $header_existed and $$header{'Prop-content-length'} eq 10 |