[catagits/Catalyst-Runtime.git] / t / lib / TestAppBadlyImmutable.pm

package TestAppBadlyImmutable;
use Catalyst qw/+TestPluginWithConstructor/;

use base qw/Class::Accessor Catalyst/;

use Test::More;

__PACKAGE__->setup;

__PACKAGE__->meta->make_immutable( inline_constructor => 0 );
ok __PACKAGE__->meta->is_immutable, 'Am now immutable';

1;
Commit	Line	Data
81ef9afd	1	package TestAppBadlyImmutable;
81ef9afd	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