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

package TestApp::View::Dump::Body;

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

sub process {
    my ( $self, $c ) = @_;
    return $self->SUPER::process( $c, $c->request->{_body} ); # FIXME, accessor doesn't work?
}

1;
Commit	Line	Data
ae29b412	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;