| line |
true |
false |
branch |
|
222
|
0 |
2 |
if (not defined $@ or $@ ne '') { } |
|
282
|
0 |
6 |
unless exists $$self{$name} |
|
284
|
0 |
6 |
if (@_) |
|
286
|
0 |
0 |
if ($name eq 'error' and $$self{'debug'}) |
|
314
|
0 |
0 |
if (defined $err) { } |
|
343
|
0 |
0 |
if (defined $$self{'debugfunc'}) { } |
|
382
|
1 |
0 |
if ($#_ < 1 or $_[0] ne 'host') { } |
|
385
|
0 |
1 |
if (@_) |
|
402
|
0 |
1 |
if (defined $args{'ssl'} and $args{'ssl'} > 0) { } |
|
404
|
0 |
0 |
if ($SSL != 1) { } |
|
416
|
0 |
1 |
unless (defined $args{'host'}) |
|
421
|
0 |
1 |
if $connect_now |
|
444
|
0 |
0 |
if ($self->connected != 1) |
|
451
|
0 |
0 |
if ($$self{'okno'} =~ /^OK/) |
|
483
|
0 |
0 |
if ($self->connected == 0) |
|
488
|
0 |
0 |
if (@cmd < 2) { } |
|
494
|
0 |
0 |
unless ($self->xmit($cmd)) |
|
528
|
0 |
0 |
if ($self->connected == 0) |
|
540
|
0 |
0 |
unless (defined $line) |
|
545
|
0 |
0 |
if ($line eq '') |
|
550
|
0 |
0 |
if ($blankOK == 1) |
|
553
|
0 |
0 |
if $line =~ /^[\r\n]+$/ |
|
561
|
0 |
0 |
if ($line =~ /^\* $tag /) { } |
|
|
0 |
0 |
elsif ($line =~ /^$tag OK/ or $line =~ /^$tag NO/) { } |
|
565
|
0 |
0 |
if ($cooked) { } |
|
575
|
0 |
0 |
if ($cooked) { } |
|
583
|
0 |
0 |
if ($line eq '') |
|
589
|
0 |
0 |
if $cooked |
|
590
|
0 |
0 |
if (defined $line and $line =~ /\{[0-9]+\}\n*$/) |
|
597
|
0 |
0 |
unless (defined $line) |
|
602
|
0 |
0 |
if ($line eq '') |
|
610
|
0 |
0 |
if ($count < &bytes::length($line)) |
|
615
|
0 |
0 |
if &bytes::length($line) <= 0 |
|
617
|
0 |
0 |
if ($cooked) { } |
|
623
|
0 |
0 |
if $lit eq '' or $lit =~ /\n$/ |
|
626
|
0 |
0 |
if $cooked |
|
660
|
0 |
0 |
unless $tag |
|
661
|
0 |
0 |
if (wantarray) { } |
|
666
|
0 |
0 |
if $_[0] =~ /logout/i |
|
667
|
0 |
0 |
wantarray ? : |
|
693
|
0 |
0 |
if (wantarray) { } |
|
698
|
0 |
0 |
unless ($self->okno =~ /^OK/) |
|
702
|
0 |
0 |
if (wantarray) { } |
|
736
|
0 |
0 |
if (wantarray) { } |
|
741
|
0 |
0 |
unless $self->okno =~ /^OK/ or $self->okno =~ /^NO/ and $self->okno =~ /$regexp/ |
|
742
|
0 |
0 |
if (wantarray) { } |
|
760
|
1 |
0 |
if $$self{'connected'} == 0 |
|
761
|
0 |
0 |
if $$self{'loggedin'} == 0 |
|
764
|
0 |
0 |
if (defined $$self{'socket'}) |
|
789
|
1 |
0 |
if $self->connected != 1 |
|
793
|
0 |
0 |
unless defined $fd |
|
797
|
0 |
0 |
if ($ret) { } |
|
798
|
0 |
0 |
if $$self{'debug'} |
|
800
|
0 |
0 |
if $$self{'debug'} |
|
825
|
0 |
0 |
if (/\n/) { } |
|
831
|
0 |
0 |
if (/\\/) |
|
835
|
0 |
0 |
if (/\"/) |
|
839
|
0 |
0 |
if (/^$/ or /[\(\)\s]/ or $quoteme) |
|
869
|
0 |
0 |
if ($$sref =~ /\{[0-9]+\}.*/) { } |
|
899
|
0 |
0 |
if ($_ =~ /^\"(.*)\"$/s) { } |
|
958
|
0 |
1 |
if $self->connected |
|
960
|
0 |
1 |
if ($$self{'ssl'} == 1) { } |
|
967
|
0 |
0 |
unless (defined $$self{'socket'}) |
|
970
|
0 |
0 |
if ($the) { } |
|
983
|
1 |
0 |
unless (defined $$self{'socket'}) |
|
986
|
1 |
0 |
if ($the) { } |
|
1005
|
0 |
0 |
unless (defined $l) |
|
1008
|
0 |
0 |
if ($the) { } |
|
1015
|
0 |
0 |
if ($$self{'ignore_hand'} == 0) |
|
1016
|
0 |
0 |
if (not $l =~ /\* OK ([^ ]+) admind ([0-9\.]+).*/) { } |
|
1019
|
0 |
0 |
if ($the) { } |
|
1029
|
0 |
0 |
if ($self->version =~ /(\d+)\.(\d+)\.(\d+)/) { } |
|
|
0 |
0 |
elsif ($self->version =~ /(\d+)\.(\d+)/) { } |
|
1064
|
1 |
0 |
if $self->connected != 1 |
|
1065
|
0 |
0 |
unless $$self{'socket'} |
|
1067
|
0 |
0 |
if $$self{'debug'} |
|
1069
|
0 |
0 |
if ($res < 1) |