X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FHTTP%2FRestarter.pm;h=0cae24353ed0ae15167680f3b2327272d540ae86;hb=7e2ec16eafb1be1daead8ed4b975ab42b79e31cb;hp=02c58bac82f05202b44e971c41be1669916033cf;hpb=9c71d51daf53bfd6f77d7e252b594392bd4be3de;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine/HTTP/Restarter.pm b/lib/Catalyst/Engine/HTTP/Restarter.pm index 02c58ba..0cae243 100644 --- a/lib/Catalyst/Engine/HTTP/Restarter.pm +++ b/lib/Catalyst/Engine/HTTP/Restarter.pm @@ -1,12 +1,12 @@ package Catalyst::Engine::HTTP::Restarter; -use strict; -use warnings; -use base 'Catalyst::Engine::HTTP'; +use Moose; +extends 'Catalyst::Engine::HTTP'; + use Catalyst::Engine::HTTP::Restarter::Watcher; -use NEXT; -sub run { +around run => sub { + my $orig = shift; my ( $self, $class, $port, $host, $options ) = @_; $options ||= {}; @@ -67,8 +67,9 @@ sub run { } } - return $self->NEXT::run( $class, $port, $host, $options ); -} + return $self->$orig( $class, $port, $host, $options ); + no Moose; +}; 1; __END__ @@ -97,11 +98,7 @@ L. =head1 AUTHORS -Sebastian Riedel, - -Dan Kubb, - -Andy Grundman, +Catalyst Contributors, see Catalyst.pm =head1 THANKS