| line |
true |
false |
branch |
|
40
|
1 |
0 |
unless (exists $param{'host'}) |
|
41
|
1 |
0 |
unless (exists $param{'port'}) |
|
42
|
1 |
0 |
unless (exists $param{'timeout'}) |
|
43
|
1 |
0 |
unless (exists $param{'login'}) |
|
44
|
1 |
0 |
unless (exists $param{'password'}) |
|
45
|
1 |
0 |
unless (exists $param{'debug'}) |
|
65
|
0 |
0 |
if ($opcode == 2) { } |
|
|
0 |
0 |
elsif ($opcode == 1) { } |
|
70
|
0 |
0 |
if (&Encode::is_utf8($key)) |
|
71
|
0 |
0 |
if (&Encode::is_utf8($val)) |
|
85
|
0 |
0 |
if ($data->{'MagicUnpack'} == 129 and $data->{'StatusUnpack'} == 0) |
|
93
|
0 |
0 |
if ($data->{'StatusUnpack'} == 32) |
|
95
|
0 |
0 |
if $self->auth |
|
109
|
0 |
0 |
if (&Encode::is_utf8($key)) |
|
119
|
0 |
0 |
if ($data->{'MagicUnpack'} == 129 and $data->{'StatusUnpack'} == 0) |
|
127
|
0 |
0 |
if ($data->{'StatusUnpack'} == 32) |
|
129
|
0 |
0 |
if $self->auth |
|
143
|
0 |
0 |
if (&Encode::is_utf8($key)) |
|
153
|
0 |
0 |
if ($data->{'MagicUnpack'} == 129 and $data->{'StatusUnpack'} == 0) |
|
161
|
0 |
0 |
if ($data->{'StatusUnpack'} == 32) |
|
163
|
0 |
0 |
if $self->auth |
|
177
|
0 |
0 |
if (&Encode::is_utf8($key)) |
|
188
|
0 |
0 |
if ($data->{'MagicUnpack'} == 129 and $data->{'StatusUnpack'} == 0) |
|
198
|
0 |
0 |
if ($data->{'StatusUnpack'} == 32) |
|
200
|
0 |
0 |
if $self->auth |
|
224
|
0 |
0 |
if ($data->{'MagicUnpack'} == 129 and $data->{'StatusUnpack'} == 0) |
|
232
|
0 |
0 |
if ($data->{'StatusUnpack'} == 32) |
|
234
|
0 |
0 |
if $self->auth |
|
254
|
0 |
0 |
if ($data->{'MagicUnpack'} == 129 and $data->{'StatusUnpack'} == 0) |
|
281
|
0 |
0 |
unless ($methods =~ /PLAIN/) |
|
298
|
0 |
0 |
if ($mess ne "Authenticated") |
|
371
|
0 |
0 |
if ($len_extras) |
|
375
|
0 |
0 |
if ($len_key) |
|
379
|
0 |
0 |
if ($len_value) |
|
393
|
0 |
0 |
if ($data{'OpcodeUnpack'} == 0) |
|
403
|
0 |
0 |
if $self->socket and $self->socket->connected |
|
419
|
0 |
0 |
if ($error) |
|
422
|
0 |
0 |
$socket ? : |
|
424
|
0 |
0 |
if ($socket) |
|
438
|
0 |
0 |
if $self->socket |
|
445
|
0 |
0 |
unless $str |
|
449
|
0 |
0 |
unless ($self->logger) |
|
453
|
0 |
0 |
if (ref $self->logger ne "CODE") |
|
458
|
0 |
0 |
if ($self->debug or $flag == 1) |