| line |
true |
false |
branch |
|
159
|
1 |
0 |
@_ ? : |
|
170
|
0 |
1 |
if ($refType ne 'HASH') |
|
178
|
0 |
1 |
unless (defined $logger) |
|
179
|
0 |
0 |
unless $logger = 'Hardware::UPS::Perl::Logging'->new |
|
184
|
1 |
0 |
if (exists $$options{'PIDFile'}) { } |
|
209
|
0 |
1 |
unless ($self->_writePID($self->getPIDFile)) |
|
250
|
0 |
0 |
if (defined $pidFile and $pidFile and -w $pidFile) { } |
|
264
|
0 |
0 |
if ($pid != $self->getPID and kill 0, $pid) |
|
272
|
0 |
0 |
if (unlink $pidFile) { } |
|
301
|
0 |
0 |
if (exists $$self{'errorMessage'}) { } |
|
320
|
1 |
1 |
if (exists $$self{'pid'}) { } |
|
339
|
1 |
1 |
if (exists $$self{'file'}) { } |
|
358
|
1 |
1 |
if (exists $$self{'logger'}) { } |
|
377
|
0 |
1 |
unless 1 == @_ |
|
380
|
1 |
0 |
if (defined $logger) |
|
382
|
0 |
1 |
unless $loggerRefType eq 'Hardware::UPS::Perl::Logging' |
|
420
|
0 |
1 |
if (-w $pidFile) |
|
423
|
0 |
0 |
unless $pid_fh = 'FileHandle'->new($pidFile, 0) |
|
434
|
0 |
0 |
if (kill 0, $pid) { } |
|
442
|
0 |
0 |
unless (unlink $pidFile) |
|
450
|
0 |
1 |
unless $pid_fh = 'FileHandle'->new($pidFile, 193, 420) |
|
455
|
1 |
0 |
if (defined $pid) { } |