1 package Stem::Event::Signal ;
3 use Stem::Event::Queue ;
9 our @EXPORT = qw( process_signal_queue ) ;
11 # this generic signal event code needs the safe signals of perl 5.8+
20 # this sub will cache the handler closures so we can reuse them.
26 my $signal = $self->{'signal'} ;
28 $self->{'method'} ||= "sig_\L${signal}_handler" ;
30 # create the signal event handler and cache it.
31 # we cache them so we can reuse these closures and never leak
33 $SIG{ $signal } = $cached_handlers{$signal} ||=
36 #print "HIT $signal\n";
37 push @signal_queue, $signal
40 # track the event object for this signal
42 $signal2event{$signal} = $self ;
44 #print "$signal = $SIG{ $signal }\n" ;
52 $SIG{ $self->{'signal'} } = 'DEFAULT' ;
57 sub process_signal_queue {
59 my $sig_count = @signal_queue ;
61 #print "PROCESS SIGNAL Q $sig_count\n" ;
63 # return if we have no pending signals
65 return $sig_count unless $sig_count ;
67 while( my $signal = shift @signal_queue ) {
69 my $event = $signal2event{ $signal } ;
72 next unless $event->{'active'} ;