X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FView%2FDump%2FBody.pm;fp=t%2Flib%2FTestApp%2FView%2FDump%2FBody.pm;h=369ccbd1851ecfe63920952fa93b15a4eb3d153f;hp=0000000000000000000000000000000000000000;hb=c4b09639360d8883906ab496552f2021a73bf34f;hpb=86ffd5797a3e861c0492f33ab75bd7890a9380bd

diff --git a/t/lib/TestApp/View/Dump/Body.pm b/t/lib/TestApp/View/Dump/Body.pm
new file mode 100644
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;