1 # See t/plugin_new_method_backcompat.t
2 package TestAppPluginWithConstructor;
5 use Catalyst qw/+TestPluginWithConstructor/;
7 BEGIN { extends qw/Catalyst Catalyst::Controller/ } # Ewww, FIXME.
10 our $MODIFIER_FIRED = 0;
13 before 'dispatch' => sub { $MODIFIER_FIRED = 1 }
14 } 'Can apply method modifier';
17 our $IS_IMMUTABLE_YET = __PACKAGE__->meta->is_immutable;
18 ok !$IS_IMMUTABLE_YET, 'I am not immutable yet';