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; |