[catagits/Catalyst-Runtime.git] / t / lib / TestApp / View / Dump / Request.pm

package TestApp::View::Dump::Request;

use strict;
use base qw[TestApp::View::Dump];

sub process {
    my ( $self, $c ) = @_;
    my $r = $c->request;
    local $r->{env};
    return $self->SUPER::process( $c, $r );
}

1;
Commit	Line	Data
dd4e6fd2	1	package TestApp::View::Dump::Request;
	2
	3	use strict;
	4	use base qw[TestApp::View::Dump];
	5
	6	sub process {
	7	my ( $self, $c ) = @_;
faa02805	8	my $r = $c->request;
	9	local $r->{env};
	10	return $self->SUPER::process( $c, $r );
dd4e6fd2	11	}
	12
	13	1;