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.