NAME

Sweet::File::Semaphore

SYNOPSIS

use Sweet::File::Semaphore;

my $file = Sweet::File->new(
    dir => '/path/to/dir',
    name => 'foo.dat',
);

my $semaphore = Sweet::File::Semaphore->new(linked_file=>$file);
say $semaphore; # /path/to/dir/foo.dat.ok

$semaphore->write;

INHERITANCE

Inherits from Sweet::File.

ATTRIBUTES

linked_file

Instance of Sweet::File.

PRIVATE METHODS

_build_extension

Returns ok.

_build_dir

Returns "linked_file" dir.

_build_name

Returns "linked_file" name suffixed with .extension.

_build_lines

Returns one line containing PID.