view release on metacpan or  search on metacpan

t/02-logic.t  view on Meta::CPAN

my $PID_FILE       =  $cwd . '/test.pid';
my $RUNNING        =  "Daemon already running\n";
my $NOT_RUNNING    =  "Daemon is not running\n";

my $script = sprintf join ('', <DATA>), $^X, $PROCESS_NAME, $PID_FILE;
open DAEMON, '>', $DAEMON_FILE or BAIL_OUT "ERROR $!";;
chmod 0755, $DAEMON_FILE;
print DAEMON $script or BAIL_OUT "ERROR $!";
close DAEMON;

my $user = getpwuid($<);
$user ||= '';

my $options = {
    os              =>  'debian',
    target          =>  $INIT_SCRIPT,
    pid_file        =>  $PID_FILE,
    start_cmd       =>  $DAEMON_FILE . ' &',
    process_name    =>  $PROCESS_NAME,
    user            =>  $user,
};