t/lib/TestAppBadlyImmutable.pm

   1 package TestAppBadlyImmutable;
   2 use Catalyst qw/+TestPluginWithConstructor/;
   3
   4 use base qw/Class::Accessor Catalyst/;
   5
   6 use Test::More;
   7
   8 __PACKAGE__->setup;
   9
  10 __PACKAGE__->meta->make_immutable( inline_constructor => 0 );
  11 ok __PACKAGE__->meta->is_immutable, 'Am now immutable';
  12
  13 1;
  14