Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

LEEDO / App-Alice-0.03 / lib / App / Alice / Signal.pm 

            

              
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

              
package App::Alice::Signal;
use AnyEvent;
use Moose;
has type => (
  is  => 'ro',
  isa => 'Str',
  required => 1,
);
has app => (
  is  => 'ro',
  isa => 'App::Alice',
  required => 1,
);
sub BUILD {
  my $self = shift;
  my $method = "sig" . lc $self->type;
  $self->$method();
}
sub sigint  {$_[0]->app->cond->send};
sub sigquit {$_[0]->app->cond->send};
__PACKAGE__->meta->make_immutable;
1;