new test suit

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

diff --git a/t/lib/TestApp/View/Dump.pm b/t/lib/TestApp/View/Dump.pm
new file mode 100644 (file)
index 0000000..9e0aa63
--- /dev/null
+++ b/t/lib/TestApp/View/Dump.pm
@@ -0,0 +1,37 @@
+package TestApp::View::Dump;
+
+use strict;
+use base qw[Catalyst::Base];
+
+use Data::Dumper ();
+
+sub dump {
+    my ( $self, $reference ) = @_;
+
+    return unless $reference;
+
+    my $dumper = Data::Dumper->new( [ $reference ] );
+    $dumper->Indent(1);
+    $dumper->Purity(1);
+    $dumper->Useqq(0);
+    $dumper->Deepcopy(1);
+    $dumper->Quotekeys(0);
+    $dumper->Terse(1);
+
+    return $dumper->Dump;
+}
+
+sub process {
+    my ( $self, $c, $reference ) = @_;
+
+    if ( my $output = $self->dump( $reference || $c->stash->{dump} || $c->stash ) ) {
+
+           $c->res->headers->content_type('text/plain');
+           $c->res->output($output);
+       return 1;
+    }
+
+    return 0;
+}
+
+1;