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