| line |
true |
false |
branch |
|
26
|
0 |
1 |
if (scalar(@_) % 2 != 0) |
|
39
|
1 |
0 |
unless (defined $self->{'Server'}) |
|
42
|
0 |
0 |
unless (defined $self->{'Login'}) |
|
45
|
0 |
0 |
unless (defined $self->{'Password'}) |
|
48
|
0 |
0 |
if ($self->{'CRAM'} != 0) |
|
52
|
0 |
0 |
if (defined $self->{'SSL'}) { } |
|
67
|
0 |
0 |
unless (defined $self->{$ssl_key}) |
|
72
|
0 |
0 |
if ($ssl_key =~ /^SSL_/) |
|
80
|
0 |
0 |
unless (eval {
do {
$self->{'Socket'} = 'IO::Socket::SSL'->new('PeerAddr', $self->{'Server'}, 'PeerPort', $self->{'Port'}, 'Proto', 'tcp', 'Reuse', 1, 'Timeout', 5, @ssl_options)
}
}) |
|
94
|
0 |
0 |
if ($self->{'Server'} =~ m[^/]) { } |
|
95
|
0 |
0 |
unless (eval {
do {
$self->{'Socket'} = 'IO::Socket::UNIX'->new('Peer', $self->{'Server'})
}
}) |
|
105
|
0 |
0 |
unless (eval {
do {
$self->{'Socket'} = 'IO::Socket::INET'->new('PeerAddr', $self->{'Server'}, 'PeerPort', $self->{'Port'}, 'Proto', 'tcp', 'Reuse', 1, 'Timeout', 5)
}
}) |
|
122
|
0 |
0 |
unless ($try =~ /\* OK/) |
|
136
|
0 |
0 |
unless ($try =~ /^try OK/) |
|
142
|
0 |
0 |
if ($self->{'CRAM'} > 0) { } |
|
143
|
0 |
0 |
if ($self->{'Capability'} =~ /CRAM-MD5/) { } |
|
146
|
0 |
0 |
if ($self->{'CRAM'} > 1) { } |
|
158
|
0 |
0 |
if (not $try =~ /^try OK/) { } |
|
211
|
0 |
0 |
if ($bytes == 0) { } |
|
212
|
0 |
0 |
if (length $buffer != 0) { } |
|
218
|
0 |
0 |
if ($char eq "\n" or $char eq "\r") { } |
|
219
|
0 |
0 |
if (length $buffer == 0) { } |
|
235
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
249
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
252
|
0 |
0 |
if (scalar @_ != 1 and scalar @_ != 2) |
|
258
|
0 |
0 |
if (scalar @_ == 1) { } |
|
264
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
276
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
279
|
0 |
0 |
if (scalar @_ != 2 and scalar @_ != 3) |
|
288
|
0 |
0 |
if (defined $partition) { } |
|
294
|
0 |
0 |
if ($try =~ /^try OK/ or $try =~ /^\* OK/) { } |
|
307
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
310
|
0 |
0 |
if (scalar @_ != 1) |
|
318
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
330
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
333
|
0 |
0 |
if (scalar @_ != 1) |
|
349
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
364
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
367
|
0 |
0 |
unless ($self->{'Capability'} =~ /QUOTA/) |
|
371
|
0 |
0 |
if (scalar @_ != 1) |
|
380
|
0 |
0 |
unless ($try =~ /QUOTAROOT/) |
|
386
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
398
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
401
|
0 |
0 |
unless ($self->{'Capability'} =~ /QUOTA/) |
|
406
|
0 |
0 |
if (scalar @_ != 1) |
|
419
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
430
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
433
|
0 |
0 |
unless ($self->{'Capability'} =~ /QUOTA/) |
|
437
|
0 |
0 |
if (scalar @_ != 2) |
|
444
|
0 |
0 |
if ($quota eq 'none') { } |
|
450
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
462
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
465
|
0 |
0 |
if (scalar @_ != 1) |
|
473
|
0 |
0 |
unless ($try =~ /^try OK/) |
|
485
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
488
|
0 |
0 |
if (scalar @_ != 1) |
|
496
|
0 |
0 |
unless ($try =~ /^try OK/) |
|
509
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
512
|
0 |
0 |
if (scalar @_ != 1) |
|
525
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
537
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
540
|
0 |
0 |
if (scalar @_ != 0) |
|
553
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
564
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
567
|
0 |
0 |
unless ($self->{'Capability'} =~ /ACL/) |
|
571
|
0 |
0 |
if (scalar @_ != 1) |
|
586
|
0 |
0 |
if ($try =~ /^try OK/) { } |
|
598
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
601
|
0 |
0 |
unless ($self->{'Capability'} =~ /ACL/) |
|
605
|
0 |
0 |
if (scalar @_ < 2) |
|
609
|
0 |
0 |
if (scalar(@_) % 2 == 0) |
|
620
|
0 |
0 |
unless ($try =~ /^try OK/) |
|
634
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
637
|
0 |
0 |
unless ($self->{'Capability'} =~ /ACL/) |
|
641
|
0 |
0 |
if (scalar @_ < 1) |
|
651
|
0 |
0 |
unless ($try =~ /^try OK/) |
|
664
|
0 |
0 |
unless (defined $self->{'Socket'}) |
|
667
|
0 |
0 |
if (scalar @_ != 1) |
|
679
|
0 |
0 |
if ($try =~ /^try OK/) { } |