[gitmo/MooseX-Daemonize.git] / lib / MooseX / Daemonize / WithSignalHandling.pm

package MooseX::Daemonize::WithSignalHandling;
use strict;    # because Kwalitee is pedantic
use Moose::Role;

our $VERSION = 0.01;

# NOTE:
# this would be an excellent canidate for
# a parameterized role, since we would want
# to have the ability to specify which 
# signals we want handled

requires 'handle_signal';

sub setup_signals {
    my $self = shift;
    foreach my $signal (qw[ INT HUP ]) {
        $SIG{$signal}  = sub { $self->handle_signal($signal) };
    }
}

1;

__END__

=pod

=cut
Commit	Line	Data
ba19d02e	1	package MooseX::Daemonize::WithSignalHandling;
18cc5c89	2	use strict; # because Kwalitee is pedantic
	3	use Moose::Role;
	4
	5	our $VERSION = 0.01;
	6
	7	# NOTE:
	8	# this would be an excellent canidate for
	9	# a parameterized role, since we would want
	10	# to have the ability to specify which
	11	# signals we want handled
	12
	13	requires 'handle_signal';
	14
	15	sub setup_signals {
	16	my $self = shift;
	17	foreach my $signal (qw[ INT HUP ]) {
	18	$SIG{$signal} = sub { $self->handle_signal($signal) };
	19	}
	20	}
	21
	22	1;
	23
	24	__END__
	25
	26	=pod
	27
	28	=cut