have to use a real app in test due to changes in runtime COMPONENT
[catagits/Catalyst-Component-ACCEPT_CONTEXT.git] / t / lib / TestApp / Model / Test.pm
index a870eaf..7f702af 100644 (file)
@@ -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;
 }