| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless $args{'ctrlpass'} |
|
43
|
0 |
0 |
unless $args{'no_connect'} |
|
62
|
0 |
0 |
if $self->connected |
|
69
|
0 |
0 |
unless defined $$self{'_io'} |
|
73
|
0 |
0 |
if $self->debug > 1 |
|
76
|
0 |
0 |
unless defined(my $buf = $self->_recv) |
|
88
|
0 |
0 |
unless $self->_send($$self{'_ctrlid'} . "\t#" . Digest::MD5::md5_hex($$self{'_helo'}{'timestamp'} . $$self{'_ctrlpass'})) |
|
100
|
0 |
0 |
unless (defined $buf and $buf =~ /^\+/) |
|
117
|
0 |
0 |
if $buf =~ /^.(\d+)\s?(.*)/ |
|
134
|
0 |
0 |
defined $$self{'_io'} && $$self{'_io'}->connected ? : |
|
144
|
0 |
0 |
if ($code) |
|
150
|
0 |
0 |
unless ($code =~ /^\d+/ and $desc) |
|
155
|
0 |
0 |
if $$self{'debug'} |
|
168
|
0 |
0 |
if (defined $code) |
|
169
|
0 |
0 |
if $code eq '0' |
|
170
|
0 |
0 |
if $desc |
|
171
|
0 |
0 |
if $$self{'debug'} > 2 |
|
182
|
0 |
0 |
if defined $set |
|
189
|
0 |
0 |
unless $data =~ /\r?\n$/ |
|
196
|
0 |
0 |
unless (defined $$self{'_io'}->send($data) and $self->connected) |
|
199
|
0 |
0 |
if $self->debug > 2 |
|
202
|
0 |
0 |
unless $self->connect and defined $$self{'_io'}->send($data) |
|
207
|
0 |
0 |
if $self->debug > 1 |
|
215
|
0 |
0 |
unless $self->connected |
|
217
|
0 |
0 |
unless $self->connected and defined $$self{'_io'}->recv($buf, $bufsz || 128) |
|
221
|
0 |
0 |
if $self->debug > 1 |
|
270
|
0 |
0 |
if (ref $$args{$step} ne 'HASH') { } |
|
271
|
0 |
0 |
if $$args{$step} |
|
282
|
0 |
0 |
unless $self->connect |
|
285
|
0 |
0 |
if $self->debug > 1 |
|
288
|
0 |
0 |
unless $self->_send($command) |
|
294
|
0 |
0 |
if $self->debug > 1 |
|
295
|
0 |
0 |
if (defined $mode) { } |
|
301
|
0 |
0 |
if $line =~ /^\.$/ |
|
307
|
0 |
0 |
if ($line =~ /^(.)(\d+)\s?(.*)/) |
|
314
|
0 |
0 |
if ($charge eq '+') { } |
|
316
|
0 |
0 |
if $mode eq '00000' |
|
317
|
0 |
0 |
if $mode ne '00100' |
|
327
|
0 |
0 |
unless defined $mode |
|
332
|
0 |
0 |
if ($mode eq '00101') |
|
335
|
0 |
0 |
ref $$args{'output_to_file'} eq 'ARRAY' ? : |
|
342
|
0 |
0 |
if /^\./ |
|
343
|
0 |
0 |
unless $self->_send($_) |
|
349
|
0 |
0 |
unless $line =~ /^(.)(\d+)\s?(.*)/ |
|
356
|
0 |
0 |
unless $charge eq '+' |
|
370
|
0 |
0 |
if $self->raw_list |
|
396
|
0 |
0 |
unless defined $value |
|
397
|
0 |
0 |
$value eq '+' ? : |
|
403
|
0 |
0 |
if ($value) { } |
|
418
|
0 |
0 |
if ($self->connected) |
|
431
|
0 |
0 |
if ($command =~ /[A-Z]/) |