t/lib/TestAppPluginWithConstructor.pm

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