[catagits/Catalyst-Runtime.git] / trunk / t / lib / Catalyst / Action / TestBefore.pm

package Catalyst::Action::TestBefore;

use strict;
use warnings;

use base qw/Catalyst::Action/;

sub execute {
    my $self = shift;
    my ( $controller, $c ) = @_;
    $c->stash->{test} = 'works';
    $self->next::method( @_ );
}

1;
Commit	Line	Data
e28a6876	1	package Catalyst::Action::TestBefore;
	2
	3	use strict;
	4	use warnings;
	5
	6	use base qw/Catalyst::Action/;
	7
	8	sub execute {
	9	my $self = shift;
	10	my ( $controller, $c ) = @_;
	11	$c->stash->{test} = 'works';
	12	$self->next::method( @_ );
	13	}
	14
	15	1;