Commit | Line | Data |
65586a18 |
1 | package Catalyst::Engine::HTTP::Restarter; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use base 'Catalyst::Engine::HTTP'; |
6 | use Catalyst::Engine::HTTP::Restarter::Watcher; |
7 | use NEXT; |
8 | |
9 | sub run { |
10 | my ( $self, $class, $port, $host, $options ) = @_; |
11 | |
12 | $options ||= {}; |
13 | |
14 | # Setup restarter |
15 | my $restarter; |
16 | my $parent = $$; |
17 | |
18 | unless ( $restarter = fork ) { |
19 | |
20 | # Prepare |
21 | close STDIN; |
22 | close STDOUT; |
23 | |
24 | my $watcher = Catalyst::Engine::HTTP::Restarter::Watcher->new( |
25 | directory => File::Spec->catdir( $FindBin::Bin, '..' ), |
26 | regex => $options->{restart_regex}, |
27 | delay => $options->{restart_delay}, |
28 | ); |
29 | |
30 | while (1) { |
31 | # poll for changed files |
32 | my @changed_files = $watcher->watch(); |
33 | |
34 | # check if our parent process has died |
35 | exit if ( getppid == 1 ); |
36 | |
37 | # Restart if any files have changed |
38 | if ( @changed_files ) { |
39 | my $files = join ', ', @changed_files; |
40 | print STDERR qq/File(s) "$files" modified, restarting\n\n/; |
41 | kill( 1, $parent ); |
42 | exit; |
43 | } |
44 | } |
45 | } |
46 | |
47 | return $self->NEXT::run( $class, $port, $host, $options ); |
48 | } |
49 | |
50 | 1; |
51 | __END__ |
52 | |
53 | =head1 NAME |
54 | |
55 | Catalyst::Engine::HTTP::Restarter - Catalyst Auto-Restarting HTTP Engine |
56 | |
57 | =head1 SYNOPSIS |
58 | |
59 | script/myapp_server.pl -restart |
60 | |
61 | =head1 DESCRIPTION |
62 | |
63 | The Restarter engine will monitor files in your application for changes |
64 | and restart the server when any changes are detected. |
65 | |
66 | =head1 METHODS |
67 | |
68 | =over 4 |
69 | |
70 | =item run |
71 | |
72 | =back |
73 | |
74 | =head1 SEE ALSO |
75 | |
76 | L<Catalyst>, L<Catalyst::Engine::HTTP>, L<Catalyst::Engine::CGI>, |
77 | L<Catalyst::Engine>. |
78 | |
79 | =head1 AUTHORS |
80 | |
81 | Sebastian Riedel, <sri@cpan.org> |
82 | |
83 | Dan Kubb, <dan.kubb-cpan@onautopilot.com> |
84 | |
85 | Andy Grundman, <andy@hybridized.org> |
86 | |
87 | =head1 THANKS |
88 | |
89 | Many parts are ripped out of C<HTTP::Server::Simple> by Jesse Vincent. |
90 | |
91 | =head1 COPYRIGHT |
92 | |
93 | This program is free software, you can redistribute it and/or modify it under |
94 | the same terms as Perl itself. |
95 | |
96 | =cut |