Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Catalyst / Restarter / Forking.pm

diff --git a/local-lib5/lib/perl5/Catalyst/Restarter/Forking.pm b/local-lib5/lib/perl5/Catalyst/Restarter/Forking.pm
new file mode 100644 (file)
index 0000000..0897019
--- /dev/null
+++ b/local-lib5/lib/perl5/Catalyst/Restarter/Forking.pm
@@ -0,0 +1,65 @@
+package Catalyst::Restarter::Forking;
+
+use Moose;
+
+extends 'Catalyst::Restarter';
+
+has _child => (
+    is  => 'rw',
+    isa => 'Int',
+);
+
+
+sub _fork_and_start {
+    my $self = shift;
+
+    if ( my $pid = fork ) {
+        $self->_child($pid);
+    }
+    else {
+        $self->start_sub->();
+    }
+}
+
+sub _kill_child {
+    my $self = shift;
+
+    return unless $self->_child;
+
+    return unless kill 0, $self->_child;
+
+    die "Cannot send INT signal to ", $self->_child, ": $!"
+        unless kill 'INT', $self->_child;
+    # If we don't wait for the child to exit, we could attempt to
+    # start a new server before the old one has given up the port it
+    # was listening on.
+    wait;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Catalyst::Restarter::Forking - Forks and restarts the child process
+
+=head1 DESCRIPTION
+
+This class forks and runs the server in a child process. When it needs
+to restart, it kills the child and creates a new one.
+
+=head1 SEE ALSO
+
+L<Catalyst::Restarter>, L<Catalyst>, <File::ChangeNotify>
+
+=head1 AUTHORS
+
+Catalyst Contributors, see Catalyst.pm
+
+=head1 COPYRIGHT
+
+This program is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut