X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP%2FRestarter.pm;h=6b1b5f5c54e6fe84a8f83aa470ff7bffd7d1df36;hp=30cb9e4b3a9f77dc2e3dc16f997c4e01255915d0;hb=0fc2d522eec43202c21e9f0062e43f10db4d9008;hpb=9e800f69753d858a230a0c48effd43457b07d3cc diff --git a/lib/Catalyst/Engine/HTTP/Restarter.pm b/lib/Catalyst/Engine/HTTP/Restarter.pm index 30cb9e4..6b1b5f5 100644 --- a/lib/Catalyst/Engine/HTTP/Restarter.pm +++ b/lib/Catalyst/Engine/HTTP/Restarter.pm @@ -1,10 +1,11 @@ package Catalyst::Engine::HTTP::Restarter; -use strict; -use warnings; -use base 'Catalyst::Engine::HTTP'; +use Class::C3; +use Moose; +extends 'Catalyst::Engine::HTTP'; +no Moose; + use Catalyst::Engine::HTTP::Restarter::Watcher; -use NEXT; sub run { my ( $self, $class, $port, $host, $options ) = @_; @@ -23,6 +24,7 @@ sub run { $options->{restart_directory} || File::Spec->catdir( $FindBin::Bin, '..' ) ), + follow_symlinks => $options->{follow_symlinks}, regex => $options->{restart_regex}, delay => $options->{restart_delay}, ); @@ -66,8 +68,8 @@ sub run { } } - return $self->NEXT::run( $class, $port, $host, $options ); -} + return $self->next::method( $class, $port, $host, $options ); +}; 1; __END__