view release on metacpan or  search on metacpan

t/lib/PluginTestApp/Controller/Root.pm  view on Meta::CPAN

package PluginTestApp::Controller::Root;

use base 'Catalyst::Controller';
use Data::Dumper ();
use Scalar::Util qw(weaken);

sub auto : Private {
    my ( $self, $c ) = @_;

    $c->stash->{'cookies'} = {
        Catalyst => { value => 'Cool',     path => '/' }, 
        Cool     => { value => 'Catalyst', path => '/' },
        CoolCat  => { value => {'Cool' => 'Catalyst'}, path => '/' },
        BadCat   => { value => {'_hashedcookies_meoww' => 'Catalyst'}, path => '/' },
    };

t/lib/PluginTestApp/Controller/Root.pm  view on Meta::CPAN

    $dumper->Quotekeys(0);
    $dumper->Terse(1);

    my $output = $dumper->Dump;

    $c->response->header( 'X-Catalyst-Plugins' => [$c->registered_plugins] );
    $c->res->headers->content_type('text/plain');
    $c->res->output($output);

    $reference->{_context} = $context;
    weaken( $reference->{_context} );
    $reference->{_body} = $body;
}

1;