1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
package presque::worker::Role::Management; use Moose::Role; has shut_down => (is => 'rw', isa => 'Bool', default => 0,); before start => sub { my $self = shift; $self->rest_register_worker }; after start => sub { my $self = shift; $self->rest_unregister_worker; }; # XXX reg signal 1;