NAME

Proc::Application::Daemon - daemon class based on Proc::Application;

SYNOPSIS

 package Program;
 use Proc::Application::Daemon;
 use base qw(Proc::Application::Daemon);
 sub handler 
 {
     my ( $his, $clientSocket ) = @_;
     $this->socket->print ( 'Done' );
     $this->log->warning ( 'warning' );
     die "Error";
 }
 package main;
 Program->new->run();

DESCRIPTION

daemon class based on Proc::Application;

new

A construtror, setup childs and childCount

options

Add mode (fork|single|prefork=[count]) and socket (domain=unix|inet|ssl:all_io::socket:: parameter) options

processSocketCreate

Handler for socket option. Create new socket and store it to $object->{socket}

processModeParameter

Child for 'prefork=count' mode and setup preforkCount option

socket

Return a client socket from $object->{socket}

mainSocket

Return a main daemon socket from $object->{socket}

done

You must return 'true' for end main loop

mainHandler

Call handler() method with $cliendSocket atrument, log the errors of execution and close client socket at exit

handler

Real work method, get $this and $clientSocket argumentds.

childs

Return a hash reference of childs with keys with pids

processSigChild

SIGCHLD processor. Get a child pid by waitpid() and delete it from childs()

forkFunction

Get three code refs ( for run at parent, child and error fork sitiations ), fork process and execute parameters functions. Store pid of new process at childs(), exit(0) at child after execute of child function, log fork error and sleep(1) after fork error. funtions

threadFunction

realMain

Main loop. accept() the new connection, and fork (if fork more) and pass execution to mainHandler

main

Prefork processes if prefork mode, loop up for preforked childs count and call realMain()

DESTROY

Send TERM signal to all childs and call parent DESTROY()

Log Debug Error Fatal Run Options

for compatibility with Net::Daemon

cpanm Proc::Application

perl -MCPAN -e shell
install Proc::Application