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.