1 package TestApp::View::Dump;
4 use base qw[Catalyst::Base];
9 my ( $self, $reference ) = @_;
11 return unless $reference;
13 my $dumper = Data::Dumper->new( [ $reference ] );
18 $dumper->Quotekeys(0);
25 my ( $self, $c, $reference ) = @_;
27 if ( my $output = $self->dump( $reference || $c->stash->{dump} || $c->stash ) ) {
29 $c->res->headers->content_type('text/plain');
30 $c->res->output($output);