1 package Catalyst::Restarter::Win32;
6 extends 'Catalyst::Restarter';
10 isa => 'Proc::Background',
17 $self->_fork_and_start;
19 return unless $self->_child;
21 $self->_restart_on_changes;
27 # This is totally hack-tastic, and is probably much slower, but it
29 my @command = ( $^X, $0, grep { ! /^\-r/ } @ARGV );
31 my $child = Proc::Background->new(@command);
33 $self->_child($child);
39 return unless $self->_child;