| line |
true |
false |
branch |
|
33
|
2 |
4 |
if scalar @_ == 1 and ref $_[0] eq 'ARRAY' |
|
36
|
2 |
4 |
wantarray ? : |
|
42
|
0 |
5 |
if scalar @_ == 1 and ref $_[0] eq 'ARRAY' |
|
44
|
5 |
0 |
length $2 == $1 ? : |
|
|
5 |
1 |
if /^(\d+):(.*),$/s |
|
45
|
1 |
4 |
wantarray ? : |
|
51
|
0 |
17 |
if scalar @_ == 1 and ref $_[0] eq 'ARRAY' |
|
53
|
16 |
10 |
if /^(\d+):(.*),$/s |
|
54
|
2 |
15 |
wantarray ? : |
|
58
|
0 |
0 |
unless my $sock = shift() |
|
66
|
0 |
0 |
unless defined($r = read($sock, $s, 1)) |
|
68
|
0 |
0 |
unless $r |
|
69
|
0 |
0 |
if $s eq ':' |
|
70
|
0 |
0 |
unless $s =~ /^[0-9]$/ |
|
73
|
0 |
0 |
if $len > 200000000 |
|
80
|
0 |
0 |
unless defined($r = read($sock, $s, $len)) |
|
81
|
0 |
0 |
if not $r and $len != 0 |
|
85
|
0 |
0 |
unless defined($r = read($sock, $s, 1)) |
|
86
|
0 |
0 |
unless $r |
|
87
|
0 |
0 |
if $s ne ',' |