stop using Moo as a test package
[catagits/Catalyst-Runtime.git] / t / lib / ACLTestApp.pm
CommitLineData
b3986722 1package ACLTestApp;
2use Test::More;
3
4use strict;
5use warnings;
6use MRO::Compat;
7use Scalar::Util ();
4fb27043 8use TestLogger;
b3986722 9
10use base qw/Catalyst Catalyst::Controller/;
11use Catalyst qw//;
12
4fb27043 13__PACKAGE__->log(TestLogger->new);
14
b3986722 15sub execute {
16 my $c = shift;
17 my ( $class, $action ) = @_;
18
19 if ( Scalar::Util::blessed($action)
20 and $action->name ne "foobar" ) {
21 eval { $c->detach( 'foobar', [$action, 'foo'] ) };
22 }
23
24 $c->next::method( @_ );
25}
26
27__PACKAGE__->setup;
28
291;