Prep for new release

[catagits/Catalyst-Plugin-Session-State-Cookie.git] / t / lib / CookieTestApp / Controller / Root.pm

package # PAUSE HIDE
    CookieTestApp::Controller::Root;
use strict;
use warnings;

use base qw/Catalyst::Controller/;

__PACKAGE__->config( namespace => '' );

sub page : Local {
    my ( $self, $c ) = @_;
    $c->res->body( "Hi! hit number " . ++$c->session->{counter} );
}

sub stream : Local {
    my ( $self, $c ) = @_;
    my $count = ++$c->session->{counter};
    $c->res->write("hit number ");
    $c->res->write($count);
}

sub deleteme : Local {
    my ( $self, $c ) = @_;
    my $id = $c->get_session_id;
    $c->delete_session;
    my $id2 = $c->get_session_id;
    $c->res->body( $id ne ( $id2 || '' ) );
}

1;