| line |
true |
false |
branch |
|
246
|
0 |
0 |
unless $args{'ctrlpass'} |
|
249
|
0 |
0 |
unless $args{'no_connect'} |
|
268
|
0 |
0 |
if $self->connected |
|
275
|
0 |
0 |
unless defined $$self{'_io'} |
|
279
|
0 |
0 |
if $self->debug > 1 |
|
282
|
0 |
0 |
unless defined(my $buf = $self->_recv) |
|
294
|
0 |
0 |
unless $self->_send($$self{'_ctrlid'} . "\t#" . Digest::MD5::md5_hex($$self{'_helo'}{'timestamp'} . $$self{'_ctrlpass'})) |
|
306
|
0 |
0 |
unless (defined $buf and $buf =~ /^\+/) |
|
323
|
0 |
0 |
if $buf =~ /^.(\d+)\s?(.*)/ |
|
340
|
0 |
0 |
defined $$self{'_io'} && $$self{'_io'}->connected ? : |
|
350
|
0 |
0 |
if ($code) |
|
356
|
0 |
0 |
unless ($code =~ /^\d+/ and $desc) |
|
361
|
0 |
0 |
if $$self{'debug'} |
|
373
|
0 |
0 |
if (defined $code) |
|
374
|
0 |
0 |
if $code eq '0' |
|
375
|
0 |
0 |
if $desc |
|
376
|
0 |
0 |
if $$self{'debug'} > 2 |
|
387
|
0 |
0 |
if defined $set |
|
394
|
0 |
0 |
unless $data =~ /\r?\n$/ |
|
401
|
0 |
0 |
unless (defined $$self{'_io'}->send($data) and $self->connected) |
|
404
|
0 |
0 |
if $self->debug > 2 |
|
407
|
0 |
0 |
unless $self->connect and defined $$self{'_io'}->send($data) |
|
412
|
0 |
0 |
if $self->debug > 1 |
|
420
|
0 |
0 |
unless $self->connected |
|
422
|
0 |
0 |
unless $self->connected and defined $$self{'_io'}->recv($buf, $bufsz || 128) |
|
426
|
0 |
0 |
if $self->debug > 1 |
|
475
|
0 |
0 |
if (ref $$args{$step} ne 'HASH') { } |
|
476
|
0 |
0 |
if $$args{$step} |
|
487
|
0 |
0 |
unless $self->connect |
|
490
|
0 |
0 |
if $self->debug > 1 |
|
493
|
0 |
0 |
unless $self->_send($command) |
|
499
|
0 |
0 |
if $self->debug > 1 |
|
500
|
0 |
0 |
if (defined $mode) { } |
|
506
|
0 |
0 |
if $line =~ /^\.$/ |
|
512
|
0 |
0 |
if ($line =~ /^(.)(\d+)\s?(.*)/) |
|
519
|
0 |
0 |
if ($charge eq '+') { } |
|
521
|
0 |
0 |
if $mode eq '00000' |
|
522
|
0 |
0 |
if $mode ne '00100' |
|
532
|
0 |
0 |
unless defined $mode |
|
537
|
0 |
0 |
if ($mode eq '00101') |
|
540
|
0 |
0 |
ref $$args{'output_to_file'} eq 'ARRAY' ? : |
|
547
|
0 |
0 |
if /^\./ |
|
548
|
0 |
0 |
unless $self->_send($_) |
|
554
|
0 |
0 |
unless $line =~ /^(.)(\d+)\s?(.*)/ |
|
561
|
0 |
0 |
unless $charge eq '+' |
|
575
|
0 |
0 |
if $self->raw_list |
|
601
|
0 |
0 |
unless defined $value |
|
602
|
0 |
0 |
$value eq '+' ? : |
|
607
|
0 |
0 |
if ($value) { } |
|
620
|
0 |
0 |
if ($self->connected) |
|
632
|
0 |
0 |
if ($command =~ /[A-Z]/) |