/usr/share/perl5/App/Alice/Signal.pm is in alice 0.19-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 29 | package App::Alice::Signal;
use AnyEvent;
use Any::Moose;
has type => (
is => 'ro',
isa => 'Str',
required => 1,
);
has app => (
is => 'ro',
isa => 'App::Alice',
weak_ref => 1,
required => 1,
);
sub BUILD {
my $self = shift;
my $method = "sig" . lc $self->type;
$self->$method();
}
sub sigint {$_[0]->app->init_shutdown};
sub sigquit {$_[0]->app->init_shutdown};
__PACKAGE__->meta->make_immutable;
1;
|