X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Component-ACCEPT_CONTEXT.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FModel%2FTest.pm;h=7f702af323bdb5486e8bddd17d3ffeaadb664395;hp=a870eaf2c936b3bf244ed4390a4052076a4cd960;hb=c9c41e4d0a7b646843e3a6f471c7f02c99543e4a;hpb=16beaa34faea61ca82bde58b02237776ff61804d

diff --git a/t/lib/TestApp/Model/Test.pm b/t/lib/TestApp/Model/Test.pm
index a870eaf..7f702af 100644
--- a/t/lib/TestApp/Model/Test.pm
+++ b/t/lib/TestApp/Model/Test.pm
@@ -8,7 +8,7 @@ use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);
 my $foo = 'bar';
 sub new {
     my $self = shift;
-    $self = $self->NEXT::new(@_);
+    $self = $self->next::method(@_);
     $foo = $self->context->config->{foo};
     return $self;
 }