| lib/IPC/Pidfile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 22 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 1 | if $DEBUG |
| 22 | 0 | 1 | if -e pidfile_name() and pidfile_is_fresh() |
| 23 | 0 | 1 | unless open my $pidfile, '>', pidfile_name() |
| 32 | 0 | 1 | if $DEBUG |
| 34 | 1 | 0 | if ($^O ne 'MSWin32') |
| 52 | 0 | 3 | if $DEBUG |
| 53 | 0 | 3 | unless open my $pidfile, '<', pidfile_name() |
| 59 | 0 | 3 | unless $pid =~ /^[0-9]+$/ |
| 65 | 0 | 1 | if $DEBUG |
| 66 | 1 | 0 | if (pid() eq pidfile_read()) |
| 68 | 0 | 1 | unless unlink pidfile_name() |