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

# See t/plugin_new_method_backcompat.t
package TestAppPluginWithConstructor;
use Test::More;
use Test::Exception;
use Catalyst qw/+TestPluginWithConstructor/;
use Moose;
BEGIN { extends qw/Catalyst Catalyst::Controller/ } # Ewww, FIXME.

__PACKAGE__->setup;
our $MODIFIER_FIRED = 0;

lives_ok {
    before 'dispatch' => sub { $MODIFIER_FIRED = 1 }
} 'Can apply method modifier';
no Moose;

our $IS_IMMUTABLE_YET = __PACKAGE__->meta->is_immutable;
ok !$IS_IMMUTABLE_YET, 'I am not immutable yet';

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