/usr/share/perl5/Daemon/Generic/Event.pm is in libdaemon-generic-perl 0.81-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 | package Daemon::Generic::Event;
use strict;
use warnings;
require Daemon::Generic;
require Event;
require Exporter;
our @ISA = qw(Daemon::Generic Exporter);
our @EXPORT = @Daemon::Generic::EXPORT;
our $VERSION = 0.81;
sub newdaemon
{
local($Daemon::Generic::caller) = caller() || 'main';
local($Daemon::Generic::package) = __PACKAGE__;
Daemon::Generic::newdaemon(@_);
}
sub gd_setup_signals
{
my $self = shift;
my $reload_event = Event->signal(
signal => 'HUP',
desc => 'reload on SIGHUP',
prio => 6,
cb => sub {
$self->gd_reconfig_event;
$self->{gd_timer}->cancel()
if $self->{gd_timer};
$self->gd_setup_timer();
},
);
my $quit_event = Event->signal(
signal => 'INT',
cb => sub { $self->gd_quit_event; },
);
}
sub gd_setup_timer
{
my $self = shift;
if ($self->can('gd_run_body')) {
my $interval = ($self->can('gd_interval') && $self->gd_interval()) || 1;
$self->{gd_timer} = Event->timer(
cb => [ $self, 'gd_run_body' ],
interval => $interval,
hard => 0,
);
}
}
sub gd_run
{
my $self = shift;
$self->gd_setup_timer();
Event::loop();
}
sub gd_quit_event
{
my $self = shift;
print STDERR "Quitting...\n";
Event::unloop_all();
}
1;
=head1 NAME
Daemon::Generic::Event - Generic daemon framework with Event.pm
=head1 SYNOPSIS
use Daemon::Generic::Event;
@ISA = qw(Daemon::Generic::Event);
sub gd_preconfig {
# stuff
}
=head1 DESCRIPTION
Daemon::Generic::Event is a subclass of L<Daemon::Generic> that
predefines some methods:
=over 15
=item gd_run()
Setup a periodic callback to C<gd_run_body()> if there is a C<gd_run_body()>.
Call C<Event::loop()>.
=item gd_setup_signals()
Bind SIGHUP to call C<gd_reconfig_event()>.
Bind SIGINT to call C<gd_quit_event()>.
=back
To use Daemon::Generic::Event, you have to provide a C<gd_preconfig()>
method. It can be empty if you have a C<gd_run_body()>.
Set up your own events in C<gd_preconfig()> and C<gd_postconfig()>.
If you have a C<gd_run_body()> method, it will be called once per
second or every C<gd_interval()> seconds if you have a C<gd_interval()>
method. Unlike in L<Daemon::Generic::While1>, C<gd_run_body()> should
not include a call to C<sleep()>.
=head1 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.
|