1 package Catalyst::Restarter::Forking;
8 extends 'Catalyst::Restarter';
19 if ( my $pid = fork ) {
30 return unless $self->_child;
32 return unless kill 0, $self->_child;
34 local $SIG{CHLD} = 'IGNORE';
35 die "Cannot send INT signal to ", $self->_child, ": $!"
36 unless kill 'INT', $self->_child;
45 Catalyst::Restarter::Forking - Forks and restarts the child process
49 This class forks and runs the server in a child process. When it needs
50 to restart, it kills the child and creates a new one.
54 L<Catalyst::Restarter>, L<Catalyst>, <File::ChangeNotify>
58 Catalyst Contributors, see Catalyst.pm
62 This program is free software, you can redistribute it and/or modify
63 it under the same terms as Perl itself.