[catagits/Catalyst-Runtime.git] / t / lib / ACLTestApp.pm

package ACLTestApp;
use Test::More;

use strict;
use warnings;
use MRO::Compat;
use Scalar::Util ();
use TestLogger;

use base qw/Catalyst Catalyst::Controller/;
use Catalyst qw//;

__PACKAGE__->log(TestLogger->new);

sub execute {
    my $c = shift;
    my ( $class, $action ) = @_;

    if ( Scalar::Util::blessed($action)
      and $action->name ne "foobar" ) {
        eval { $c->detach( 'foobar', [$action, 'foo'] ) };
    }

    $c->next::method( @_ );
}

__PACKAGE__->setup;

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