File Coverage

blib/lib/Test/Synchronized/FileLock.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	1	3	33.3
total	36	39	92.3

package Test::Synchronized::FileLock;
use strict;
use warnings;

use base qw(Test::Synchronized::Lock);
__PACKAGE__->mk_ro_accessors(qw(id));

use File::Spec;

sub new {
    my ($class, @args) = @_;

    my $self = $class->SUPER::new(@args);
    return $self;
}

sub _dir {
    my ($self) = @_;

    File::Spec->catfile(
        File::Spec->tmpdir,
        sprintf('test-synchronized-%d.lock', $self->id),
    );
}

sub lock {
    my ($self) = @_;

    while (1) {
        if (! -d  $self->_dir) {
            return if mkdir($self->_dir);
        }
        sleep(1);
    }
}

sub unlock {
    my ($self) = @_;
    rmdir($self->_dir);
}

1;