| blib/lib/File/PidSimple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 22 | 54.5 |
| line | true | false | branch |
|---|---|---|---|
| 56 | 4 | 1 | if $$self{'file'} |
| 86 | 1 | 0 | if (scalar @_) |
| 87 | 0 | 1 | ref $_[0] ? : |
| 101 | 2 | 1 | unless -f $file |
| 102 | 0 | 1 | unless open my $fh, '<', $file |
| 104 | 0 | 1 | unless $pid |
| 105 | 1 | 0 | kill(0, $pid) ? : |
| 121 | 0 | 1 | unless open my $fh, '>', $file |
| 122 | 0 | 1 | unless print {$fh;} $pid || $$, $/ |
| 123 | 0 | 1 | unless close $fh |
| 136 | 0 | 0 | if $self->running |