t/lib/TestApp/View/Dump/Response.pm

   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 ) = @_;
   8     my $r = $c->response;
   9     local $r->{_writer};
  10     local $r->{_reponse_cb};
  11     return $self->SUPER::process( $c, $r );
  12 }
  13
  14 1;