| blib/lib/File/Flock/Retry.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 22 | 54.5 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 4 | unless defined $path |
| 33 | 0 | 4 | if $self->{'_fh'} |
| 45 | 0 | 4 | unless sysopen $self->{'_fh'}, $path, $self->{'mode'} |
| 51 | 0 | 4 | $self->{'shared'} ? : |
| 4 | 0 | if (flock $self->{'_fh'}, ($self->{'shared'} ? 1 : 2) | 4) { } | |
| 54 | 0 | 4 | unless @st1 |
| 61 | 0 | 4 | unless @st2 |
| 65 | 0 | 4 | if $st1[0] != $st2[0] or $st1[1] != $st2[1] |
| 71 | 0 | 0 | unless $tries <= $self->{'retries'} |
| 86 | 1 | 4 | unless $self->{'_fh'} |
| 88 | 2 | 2 | if $self->{'_created'} and not -s $self->{'path'} |