line |
true |
false |
branch |
131
|
1 |
0 |
@_ ? : |
146
|
0 |
1 |
if ($refType ne 'HASH') |
154
|
0 |
1 |
unless (defined $logger) |
155
|
0 |
0 |
unless $logger = 'Hardware::UPS::Perl::Logging'->new |
164
|
0 |
1 |
if (defined $connectionOptions) { } |
166
|
0 |
0 |
if ($refType ne 'HASH') |
188
|
0 |
1 |
if (defined $connectionType) |
190
|
0 |
0 |
unless ($self->setConnectionHandle($connectionType)) |
217
|
0 |
0 |
if (exists $$self{'errorMessage'}) { } |
236
|
0 |
1 |
if (exists $$self{'logger'}) { } |
255
|
0 |
1 |
unless 1 == @_ |
258
|
1 |
0 |
if (defined $logger) |
260
|
0 |
1 |
if ($loggerRefType ne 'Hardware::UPS::Perl::Logging') |
286
|
0 |
1 |
if (exists $$self{'options'}) { } |
305
|
0 |
1 |
unless 1 == @_ and ref $_[0] eq 'HASH' |
331
|
0 |
0 |
if (exists $$self{'connection'}) { } |
351
|
0 |
0 |
unless 1 == @_ |
366
|
0 |
0 |
if ($@) |
376
|
0 |
0 |
if (not $connectionHandle && ref $connectionHandle or $@) |
399
|
0 |
0 |
unless ($connectionHandle->connect(@_)) |
423
|
0 |
0 |
if (defined $connectionHandle) { } |
443
|
0 |
0 |
if ($self->connected) { } |
481
|
0 |
0 |
unless (defined $connectionHandle) |
487
|
0 |
0 |
if ($connectionHandle->sendCommand($command, $response, $responseSize)) { } |