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

{
    package NewTestPlugin;
    use strict;
    use warnings;
    sub new { 
        my $class = shift;
        return bless $_[0], $class; 
    }
}

{
    package TestAppPluginWithNewMethod;
    use Test::Exception;
    use Catalyst qw/+NewTestPlugin/;

    sub foo : Local {
        my ($self, $c) = @_;
        $c->res->body('foo');
    }

    use Moose; # Just testing method modifiers still work.
    __PACKAGE__->setup;
    our $MODIFIER_FIRED = 0;

    lives_ok {
        before 'dispatch' => sub { $MODIFIER_FIRED = 1 }
    } 'Can apply method modifier';
    no Moose;
}
Commit	Line	Data
730533ae	1	{
	2	package NewTestPlugin;
	3	use strict;
	4	use warnings;
	5	sub new {
	6	my $class = shift;
	7	return bless $_[0], $class;
	8	}
	9	}
	10
	11	{
	12	package TestAppPluginWithNewMethod;
	13	use Test::Exception;
	14	use Catalyst qw/+NewTestPlugin/;
	15
	16	sub foo : Local {
	17	my ($self, $c) = @_;
	18	$c->res->body('foo');
	19	}
	20
	21	use Moose; # Just testing method modifiers still work.
	22	__PACKAGE__->setup;
	23	our $MODIFIER_FIRED = 0;
	24
	25	lives_ok {
	26	before 'dispatch' => sub { $MODIFIER_FIRED = 1 }
	27	} 'Can apply method modifier';
	28	no Moose;
	29	}