Commit | Line | Data |
6a8f85af |
1 | # See t/plugin_new_method_backcompat.t |
2 | package TestAppPluginWithConstructor; |
bca6bdad |
3 | use Test::More; |
6a8f85af |
4 | use Test::Exception; |
5 | use Catalyst qw/+TestPluginWithConstructor/; |
6 | use Moose; |
7 | BEGIN { extends qw/Catalyst Catalyst::Controller/ } # Ewww, FIXME. |
8 | |
6a8f85af |
9 | __PACKAGE__->setup; |
10 | our $MODIFIER_FIRED = 0; |
11 | |
12 | lives_ok { |
13 | before 'dispatch' => sub { $MODIFIER_FIRED = 1 } |
14 | } 'Can apply method modifier'; |
15 | no Moose; |
16 | |
bca6bdad |
17 | our $IS_IMMUTABLE_YET = __PACKAGE__->meta->is_immutable; |
18 | ok !$IS_IMMUTABLE_YET, 'I am not immutable yet'; |
19 | |
6a8f85af |
20 | 1; |
21 | |