Commit | Line | Data |
734a1e11 |
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'; |
dbb2d5cd |
12 | $self->next::method( @_ ); |
734a1e11 |
13 | } |
14 | |
15 | 1; |