| blib/lib/Proc/tored/PidFile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 24 | 79.1 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 24 | 20 | unless $pid |
| 36 | 17 | 3 | if kill 0, $pid |
| 43 | 26 | 22 | unless $self->file->is_file |
| 44 | 0 | 22 | unless my($line) = $self->file->lines({'count', 1, 'chomp', 1}) |
| 52 | 1 | 11 | unless my $lock = $self->write_lock |
| 53 | 2 | 9 | if $self->running_pid |
| 61 | 0 | 12 | unless my $lock = $self->write_lock |
| 62 | 3 | 9 | unless $self->is_running |
| 63 | 0 | 9 | unless $self->file->exists |
| 72 | 9 | 2 | if $self->write_file |
| 82 | 0 | 24 | unless $$ eq $self->mypid |
| 83 | 0 | 24 | unless $self->lockfile |