| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless ($self->_initialize(%arg)) |
|
106
|
0 |
0 |
if (defined $user and defined $pass) |
|
109
|
0 |
0 |
if (defined $ans and $ans =~ /^OK/) |
|
112
|
0 |
0 |
if (defined $ans and $ans =~ /^OK/) |
|
119
|
0 |
0 |
if (defined $ans and $ans =~ /^OK/) |
|
126
|
0 |
0 |
if (defined $ans) { } |
|
151
|
0 |
0 |
if (defined $user and defined $pass) |
|
154
|
0 |
0 |
if (defined $ans and $ans =~ /^OK/) |
|
157
|
0 |
0 |
if defined $ans and $ans =~ /^OK/ |
|
160
|
0 |
0 |
if (defined $ans) { } |
|
178
|
0 |
0 |
if ($$self{'srvsock'}) |
|
212
|
0 |
0 |
unless (defined $srvsock) |
|
219
|
0 |
0 |
if ($login) |
|
220
|
0 |
0 |
if ($self->Login($user, $pass)) { } |
|
233
|
0 |
0 |
unless (defined $$self{'vars'}) |
|
259
|
0 |
0 |
unless scalar $handles[1] |
|
264
|
0 |
0 |
unless scalar $handles[0] |
|
267
|
0 |
0 |
unless defined $result |
|
283
|
0 |
0 |
if $IO::Socket::{'has_error'} and $select->has_error(0) |
|
284
|
0 |
0 |
if $IO::Socket::{'has_exception'} and $select->has_exception(0) |
|
301
|
0 |
0 |
unless (defined $ans) |
|
307
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^ANS/) { } |
|
317
|
0 |
0 |
if ($checkvar ne $var) |
|
341
|
0 |
0 |
unless (defined $ans) |
|
347
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^ANS/) { } |
|
357
|
0 |
0 |
if ($checkvar ne $var) |
|
382
|
0 |
0 |
unless (defined $ans) |
|
388
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^OK/) { } |
|
410
|
0 |
0 |
unless (defined $ans) |
|
416
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^OK FSD-SET/) { } |
|
439
|
0 |
0 |
unless (defined $ans) |
|
445
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^OK/) { } |
|
468
|
0 |
0 |
unless (defined $ans) |
|
474
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^ENUM /) { } |
|
483
|
0 |
0 |
if (($option, undef, $selected) = $line =~ /^OPTION (".*")( )?(SELECTED)?$/) |
|
487
|
0 |
0 |
if $line =~ /^END/ |
|
507
|
0 |
0 |
unless (defined $ans) |
|
513
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^DESC/) { } |
|
536
|
0 |
0 |
unless (defined $ans) |
|
542
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^TYPE/) { } |
|
565
|
0 |
0 |
unless (defined $ans) |
|
571
|
0 |
0 |
if ($ans =~ /^ERR/) { } |
|
|
0 |
0 |
elsif ($ans =~ /^DESC/) { } |
|
596
|
0 |
0 |
if ($$self{'debug'}) |
|
599
|
0 |
0 |
if ($$self{'debugout'}) |
|
600
|
0 |
0 |
unless $out = 'FileHandle'->new($$self{'debugout'}, '>>') |
|
602
|
0 |
0 |
if ($out) { } |
|
617
|
0 |
0 |
if ($$self{'err'}) { } |
|
630
|
0 |
0 |
unless (defined $availvars) |
|
638
|
0 |
0 |
unless (shift(@vars) =~ /^VARS/) |
|
643
|
0 |
0 |
if ($vars[0] =~ /@/) |
|
658
|
0 |
0 |
unless (defined $availvars) |
|
666
|
0 |
0 |
unless (shift(@vars) =~ /^RW/) |
|
671
|
0 |
0 |
if ($vars[0] =~ /@/) |
|
686
|
0 |
0 |
unless (defined $instcmds) |
|
694
|
0 |
0 |
unless (shift(@instcmds) =~ /^INSTCMDS/) |
|
699
|
0 |
0 |
if ($instcmds[0] =~ /@/) |
|
714
|
0 |
0 |
unless (defined $ans) |
|
720
|
0 |
0 |
if ($ans =~ /^OK/) { } |
|
739
|
0 |
0 |
unless (defined $$self{'cmds'}) |
|
744
|
0 |
0 |
unless $$self{'cmds'}{$name} |