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