| blib/lib/File/Flock/Retry.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 22 | 54.5 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 4 | unless defined $path |
| 32 | 0 | 4 | if $self->{'_fh'} |
| 43 | 0 | 4 | unless open $self->{'_fh'}, '>>', $path |
| 50 | 0 | 4 | $self->{'shared'} ? : |
| 4 | 0 | if (flock $self->{'_fh'}, ($self->{'shared'} ? 1 : 2) | 4) { } | |
| 53 | 0 | 4 | unless @st1 |
| 60 | 0 | 4 | unless @st2 |
| 64 | 0 | 4 | if $st1[0] != $st2[0] or $st1[1] != $st2[1] |
| 70 | 0 | 0 | unless $tries <= $self->{'retries'} |
| 85 | 1 | 4 | unless $self->{'_fh'} |
| 87 | 2 | 2 | if $self->{'_created'} and not -s $self->{'path'} |