1 package TestApp::View::Dump;
4 use base '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 # Force processing of on-demand data
30 # Remove context from reference if needed
31 my $context = delete $reference->{_context};
33 # Remove body from reference if needed
34 my $body = delete $reference->{_body};
37 $self->dump( $reference || $c->stash->{dump} || $c->stash ) )
40 $c->res->headers->content_type('text/plain');
41 $c->res->output($output);
44 $reference->{_context} = $context;
47 $reference->{_body} = $body;