X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FCatalyst%2FAction%2FTestAfter.pm;h=2139a8b9e923eee2b74092444294b3c217eb7532;hb=9af4ee013b23e7241d4664ea39952fa3b20f4b7f;hp=61fb9d7d54d78724479db2f50f9175368e3a754b;hpb=734a1e11822a80e23e338a0167c717c5b31171f2;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/lib/Catalyst/Action/TestAfter.pm b/t/lib/Catalyst/Action/TestAfter.pm
index 61fb9d7..2139a8b 100644
--- 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} );
 }