| blib/lib/File/Flock/Retry.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 22 | 54.5 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 4 | unless defined $path |
| 35 | 0 | 4 | if $self->{'_fh'} |
| 47 | 0 | 4 | unless sysopen $self->{'_fh'}, $path, $self->{'mode'} |
| 53 | 0 | 4 | $self->{'shared'} ? : |
| 4 | 0 | if (flock $self->{'_fh'}, ($self->{'shared'} ? 1 : 2) | 4) { } | |
| 56 | 0 | 4 | unless @st1 |
| 63 | 0 | 4 | unless @st2 |
| 67 | 0 | 4 | if $st1[0] != $st2[0] or $st1[1] != $st2[1] |
| 73 | 0 | 0 | unless $tries <= $self->{'retries'} |
| 88 | 1 | 4 | unless $self->{'_fh'} |
| 90 | 3 | 1 | if $self->{'_acquired'} and not -s $self->{'path'} |