++ed by:
SYP

1 PAUSE user

David Muir Sharnoff

NAME

 Daemon::Generic::While1 - Daemon framework with default while(1) loop

SYNOPSIS

 @ISA = qw(Daemon::Generic::While1);

 sub gd_run_body {
        # stuff
 }

DESCRIPTION

This is a slight variation on Daemon::Generic: a default gd_run() provided. It has a while(1) loop that calls gd_run_body() over and over. It checks for reconifg and and terminate events and only actions them between calls to gd_run_body().

Terminate events will be forced through after $Daemon::Generic::force_quit_delay seconds if gd_run_body() doesn't return quickly enough.

SUBCLASS METHODS REQUIRD

The following method is required to be overridden to subclass Daemon::Generic::While1:

gd_run_body()

This method will be called over and over. This method should include a call to sleep(1) (or a bit more). Reconfig events will not interrupt it. Quit events will only interrupt it after 15 seconds.

ADDITIONAL METHODS

The following additional methods are available for your use (as compared to Daemon::Generic):

gd_sleep($period)

This will sleep for $period seconds but in one-second intervals so that if a SIGINT or SIGHUP arrives the sleep period can end more quickly.

Using this makes it safe for gd_run_body() to sleep for longer than $Daemon::Generic::force_quit_delay seconds at a time.

ADDITIONAL MEMBER DATA

The following additional bits of member data are defined:

gd_sigint

The time at which an (unprocessed) SIGINT was recevied.

gd_sighup

The time at which an (unprocessed) SIGHUP was recevied.

LICENSE

Copyright (C) 2006-2010 David Muir Sharnoff <muir@idiom.com>. Copyright (C) 2011 Google, Inc. This module may be used and distributed on the same terms as Perl itself.