1 package Catalyst::Restarter::Forking;
5 extends 'Catalyst::Restarter';
16 if ( my $pid = fork ) {
27 return unless $self->_child;
29 return unless kill 0, $self->_child;
31 local $SIG{CHLD} = 'IGNORE';
32 die "Cannot send INT signal to ", $self->_child, ": $!"
33 unless kill 'INT', $self->_child;
42 Catalyst::Restarter::Forking - Forks and restarts the child process
46 This class forks and runs the server in a child process. When it needs
47 to restart, it kills the child and creates a new one.
51 L<Catalyst::Restarter>, L<Catalyst>, <File::ChangeNotify>
55 Catalyst Contributors, see Catalyst.pm
59 This program is free software, you can redistribute it and/or modify
60 it under the same terms as Perl itself.