Lock the lockfiles

LockedLockFile.pm

package LockedLockFile;

use strict;
use warnings;

use Moose;

use Path::Tiny;
use File::Flock::Tiny;

has level => (
    is => 'ro',
    isa => 'Int',
    default => 0,
);

has lock => (
    is => 'ro',
    lazy => 1,
    isa => 'LockedLockFile',
    default => sub {
        my $self = shift;
        LockedLockFile->new( level => $self->level +1 );
    },
);

has _lock => (
    is => 'ro',
    lazy => 1,
    isa => 'File::Flock::Tiny::Lock',
    default => sub {
        my $self = shift;

        my $file = "/tmp/" . join '-', path($0)->basename, $self->level;

        warn "locking $file\n";

        return File::Flock::Tiny->write_pid($file) 
            || die "lock already in use, aborting this run\n";
    },
);

sub BUILD {
    my $self = shift;
    $self->_lock; # lock ourselves
    $self->lock   # lock our lock
}

package main;

my $lockmeup = LockedLockFile->new;