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

package TestAppSetupRecursion;

use Moose;
use namespace::autoclean;

extends 'Catalyst';

our $SetupCount = 0;
# Content of the sub is irrelevant, the bug is that it's existence triggers
# infinite recursion.
after setup => sub {
    $SetupCount++;
};

__PACKAGE__->setup;
Commit	Line	Data
f2e70879	1	package TestAppSetupRecursion;
	2
	3	use Moose;
	4	use namespace::autoclean;
	5
	6	extends 'Catalyst';
	7
	8	our $SetupCount = 0;
	9	# Content of the sub is irrelevant, the bug is that it's existence triggers
	10	# infinite recursion.
	11	after setup => sub {
	12	$SetupCount++;
	13	};
	14
	15	__PACKAGE__->setup;