remove all unnecessary shebangs

[catagits/Catalyst-Runtime.git] / t / lib / Catalyst / Action / TestAfter.pm

diff --git a/t/lib/Catalyst/Action/TestAfter.pm b/t/lib/Catalyst/Action/TestAfter.pm
index 61fb9d7..2139a8b 100644 (file)
--- a/t/lib/Catalyst/Action/TestAfter.pm
+++ b/t/lib/Catalyst/Action/TestAfter.pm
@@ -3,12 +3,13 @@ package Catalyst::Action::TestAfter;
 use strict;
 use warnings;
 
-use base qw/Catalyst::Action/;
+use base qw/Catalyst::Action/; # N.B. Keep as a non-moose class, this also
+                               # tests metaclass initialization works as expected
 
 sub execute {
     my $self = shift;
     my ( $controller, $c ) = @_;
-    $self->NEXT::execute( @_ );
+    $self->next::method( @_ );
     $c->res->header( 'X-Action-After', $c->stash->{after_message} );
 }