view release on metacpan or  search on metacpan

t/lib/TestApp/View/Dump.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
package TestApp::View::Dump;
 
use strict;
use base 'https://metacpan.org/pod/Catalyst::Base">Catalyst::Base';
 
use Data::Dumper ();
use Scalar::Util qw(weaken);
 
sub dump {
    my ( $self, $reference ) = @_;
 
    return unless $reference;
 
    my $dumper = Data::Dumper->new( [$reference] );
    $dumper->Indent(1);
    $dumper->Purity(1);
    $dumper->Useqq(0);

t/lib/TestApp/View/Dump.pm  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
    if ( my $output =
        $self->dump( $reference || $c->stash->{dump} || $c->stash ) )
    {
 
        $c->res->headers->content_type('text/plain');
        $c->res->output($output);
 
        # Repair context
        $reference->{_context} = $context;
        weaken( $reference->{_context} );
 
        # Repair body
        $reference->{_body} = $body;
 
        return 1;
    }
 
    return 0;
}