1use strict; 2package Event::signal; 3use Carp; 4use base 'Event::Watcher'; 5use vars qw($DefaultPriority @ATTRIBUTE); 6$DefaultPriority = Event::PRIO_HIGH(); 7@ATTRIBUTE = qw(signal); 8 9'Event::Watcher'->register; 10 11sub new { 12 # lock %Event:: 13 14 my $class = shift; 15 my %arg = @_; 16 my $o = allocate($class, delete $arg{attach_to} || {}); 17 $o->init(\%arg); 18 $o; 19} 20 211; 22