File Coverage

blib/lib/File/Lockfile.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	10	60.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	47	51	92.1

package File::Lockfile;

use strict;
use warnings;

use version; our $VERSION = qv('1.0.5');

require Class::Data::Inheritable;
use base qw(Class::Data::Inheritable);

__PACKAGE__->mk_classdata(qw/lockfile/);

sub new {
	my ($class, $filename, $dir) = @_;
	$class->lockfile(join("/", $dir, $filename));
	return bless {}, $class;
}

sub write {
	my $fh;
	open $fh, '>', __PACKAGE__->lockfile or die("Can't write lockfile: ".__PACKAGE__->lockfile.": $!");
	print $fh $$;
	close $fh;
}

sub remove {
	unlink __PACKAGE__->lockfile;
}

sub check {
	my ($class, $lockfile) = @_;

	$lockfile = __PACKAGE__->lockfile unless $lockfile;

	if ( -s $lockfile ) {
		my $fh;
		open $fh, '<', $lockfile or die("Can't open lockfile for reading: ".__PACKAGE->lockfile.": $!");
		my $pid = <$fh>;
		my $running = kill 0, $pid;
		return $pid if $running;
	}
	return undef;
}

1;