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

package TestApp::RequestBaseBug;

use parent 'Catalyst::Request';

sub uri {
    my $self = shift;

# this goes into infinite mutual recursion
    $self->base;

    $self->SUPER::uri(@_)
}

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