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]/) |