t/lib/TestAppSetupRecursion.pm

   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;