| line |
true |
false |
branch |
|
47
|
2 |
3 |
if (my $comp = $$attr{'compression'}) |
|
48
|
0 |
2 |
if ($comp eq 'off') { } |
|
|
2 |
0 |
elsif ($comp eq 'gzip') { } |
|
57
|
0 |
5 |
if (my $cipher = $$attr{'cipher'}) |
|
60
|
0 |
5 |
if (my $maxmessage = $$attr{'maxmessage'}) |
|
92
|
20 |
22 |
if $$self{'compression'} |
|
96
|
0 |
42 |
if (my $cipher = $$self{'cipher'}) |
|
98
|
0 |
0 |
if (my $addSize = length($encodedMsg) % $size) |
|
109
|
0 |
42 |
if (not $socket->print(pack('N', $encodedSize), $encodedMsg) && $socket->flush) |
|
142
|
0 |
42 |
unless ($result) |
|
143
|
0 |
0 |
if defined $result |
|
150
|
0 |
42 |
if $max and $encodedSize > $max |
|
153
|
0 |
42 |
if ($$self{'cipher'}) |
|
155
|
0 |
0 |
if (my $addSize = $encodedSize % $blockSize) |
|
163
|
0 |
42 |
unless ($result) |
|
164
|
0 |
0 |
if defined $result |
|
169
|
0 |
42 |
if ($$self{'cipher'}) |
|
178
|
20 |
22 |
if $$self{'compression'} |
|
209
|
0 |
0 |
defined $$self{'maxmessage'} ? : |