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

package TestApp::View::Dump::Response;

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

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

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