t/lib/TestApp/RequestBaseBug.pm

   1 package TestApp::RequestBaseBug;
   2
   3 use base 'Catalyst::Request';
   4
   5 sub uri {
   6     my $self = shift;
   7
   8 # this goes into infinite mutual recursion
   9     $self->base;
  10
  11     $self->SUPER::uri(@_)
  12 }
  13
  14 1;