use warnings;
use MRO::Compat;
-use base qw/Catalyst::Controller Class::Data::Inheritable/;
+use base qw/Class::Data::Inheritable/;
__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) = @_;
-}
-
1;