Commit | Line | Data |
dae2b0fa |
1 | package TestApp::RequestBaseBug; |
2 | |
f242375e |
3 | use base 'Catalyst::Request'; |
dae2b0fa |
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; |