t/lib/TestApp/View/Dump.pm

   1 package TestApp::View::Dump;
   2
   3 use strict;
   4 use base qw[Catalyst::Base];
   5
   6 use Data::Dumper ();
   7
   8 sub dump {
   9     my ( $self, $reference ) = @_;
  10
  11     return unless $reference;
  12
  13     my $dumper = Data::Dumper->new( [ $reference ] );
  14     $dumper->Indent(1);
  15     $dumper->Purity(1);
  16     $dumper->Useqq(0);
  17     $dumper->Deepcopy(1);
  18     $dumper->Quotekeys(0);
  19     $dumper->Terse(1);
  20
  21     return $dumper->Dump;
  22 }
  23
  24 sub process {
  25     my ( $self, $c, $reference ) = @_;
  26
  27     if ( my $output = $self->dump( $reference || $c->stash->{dump} || $c->stash ) ) {
  28
  29             $c->res->headers->content_type('text/plain');
  30             $c->res->output($output);
  31        return 1;
  32     }
  33
  34     return 0;
  35 }
  36
  37 1;