package Catalyst::Plugin::Test::Plugin;
-
-use strict;
-use warnings;
+use Moose;
use MRO::Compat;
-use base qw/Catalyst::Controller Class::Data::Inheritable/;
+with 'Catalyst::ClassData';
__PACKAGE__->mk_classdata('ran_setup');
sub setup {
my $c = shift;
$c->ran_setup('1');
+
+ return $c->next::method( @_ );
}
sub prepare {
$c->next::method(@_);
}
-sub end : Private {
- my ($self,$c) = @_;
-}
-
+no Moose;
1;