Add extra HTTP::Body tests I have had hanging around in my local repos for months

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

diff --git a/t/lib/TestApp/View/Dump/Body.pm b/t/lib/TestApp/View/Dump/Body.pm
new file mode 100644 (file)
index 0000000..369ccbd
--- /dev/null
+++ b/t/lib/TestApp/View/Dump/Body.pm
@@ -0,0 +1,11 @@
+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;