NAME

Proc::tored::Flag - Ties a runtime flag to the existence of a touch file

VERSION

version 0.20

SYNOPSIS

use Proc::tored::Flag;

my $fnord = Proc::tored::Flag->new(touch_file_path => '/my/service/path');

$fnord->set; # touch file created if not already there
$fnord->is_set; # true

$fnord->unset; # touch file removed if it exists
$fnord->is_set; # false

if ($fnord->is_set) {
  warn "forgot what to do";
  exit 1;
}

AUTHOR

Jeff Ober <sysread@fastmail.fm>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Jeff Ober.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.