line |
true |
false |
branch |
242
|
0 |
0 |
unless shift @fh |
257
|
0 |
1 |
unless my($a, $b) = AnyEvent::Util::portable_socketpair() |
260
|
0 |
1 |
unless open my $oldin, '<&0' |
261
|
0 |
1 |
unless open my $oldout, '>&1' |
263
|
0 |
1 |
unless open STDIN, '<&' . fileno($b) |
264
|
0 |
1 |
unless open STDOUT, '>&' . fileno($b) |
266
|
0 |
1 |
$p ? : |
334
|
3 |
0 |
unless $s =~ /'/u |
352
|
0 |
1 |
if length $linecode > 70 |
424
|
0 |
1 |
unless my $fh = shift() |
427
|
1 |
0 |
length $ENV{'HOSTNAME'} ? : |
444
|
1 |
0 |
if ($len or $! == 11 or $! == 11) { } |
446
|
1 |
0 |
if $ofs >= length $code |
458
|
1 |
0 |
if ($len or $! == 11 or $! == 11) { } |
459
|
0 |
1 |
if length $rbuf > length $magic0 |
461
|
1 |
0 |
if ($rbuf eq ($magic0 ^ $magic1)) |
467
|
0 |
1 |
if $ww |