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

   1 package TestApp::View::Dump::Body;
   2
   3 use strict;
   4 use base qw[TestApp::View::Dump];
   5
   6 sub process {
   7     my ( $self, $c ) = @_;
   8     return $self->SUPER::process( $c, $c->request->{_body} ); # FIXME, accessor doesn't work?
   9 }
  10
  11 1;