Branch Coverage

blib/lib/Hardware/UPS/Perl/Connection.pm
Criterion Covered Total %
branch 11 48 22.9


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)) { }