Commit | Line | Data |
---|---|---|
6a8f85af | 1 | # See t/plugin_new_method_backcompat.t |
2 | package TestAppPluginWithConstructor; | |
bca6bdad | 3 | use Test::More; |
2a56ace9 | 4 | use Test::Fatal; |
6a8f85af | 5 | use Catalyst qw/+TestPluginWithConstructor/; |
6 | use Moose; | |
2c64bc24 | 7 | extends qw/Catalyst/; |
6a8f85af | 8 | |
6a8f85af | 9 | __PACKAGE__->setup; |
10 | our $MODIFIER_FIRED = 0; | |
11 | ||
2a56ace9 | 12 | is exception { |
6a8f85af | 13 | before 'dispatch' => sub { $MODIFIER_FIRED = 1 } |
2a56ace9 | 14 | }, undef, 'Can apply method modifier'; |
6a8f85af | 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 |