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 | } |