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