[catagits/Test-WWW-Mechanize-Catalyst.git] / t / lib / CattySession.pm

package CattySession;

use strict;

#use Catalyst;
use Catalyst qw/
    Session
    Session::State::Cookie
    Session::Store::Dummy
    /;
use Cwd;
use MIME::Base64;

our $VERSION = '0.01';

CattySession->config(
    name => 'CattySession',
    root => cwd . '/t/root',
);

CattySession->setup();

sub auto : Private {
    my ( $self, $context ) = @_;
    if ( $context->session ) {
        return 1;
    }

}

sub default : Private {
    my ( $self, $context ) = @_;
    my $html = html( "Root", "This is the root page" );
    $context->response->content_type("text/html");
    $context->response->output($html);
}

sub name : Global {
    my ($self, $c) = @_;

    my $html = html( $c->config->{name}, "This is the die page" );
    $c->response->content_type("text/html");
    $c->response->output($html);
}


sub html {
    my ( $title, $body ) = @_;
    return qq{
<html>
<head><title>$title</title></head>
<body>
$body
<a href="/hello/">Hello</a>.
</body></html>
};
}

1;
Commit	Line	Data
6bc86362	1	package CattySession;
	2
	3	use strict;
	4
	5	#use Catalyst;
db8bd5bb	6	use Catalyst qw/
6bc86362	7	Session
	8	Session::State::Cookie
	9	Session::Store::Dummy
	10	/;
	11	use Cwd;
	12	use MIME::Base64;
	13
	14	our $VERSION = '0.01';
	15
	16	CattySession->config(
	17	name => 'CattySession',
	18	root => cwd . '/t/root',
	19	);
	20
	21	CattySession->setup();
	22
	23	sub auto : Private {
	24	my ( $self, $context ) = @_;
	25	if ( $context->session ) {
	26	return 1;
	27	}
	28
	29	}
	30
	31	sub default : Private {
	32	my ( $self, $context ) = @_;
	33	my $html = html( "Root", "This is the root page" );
	34	$context->response->content_type("text/html");
	35	$context->response->output($html);
	36	}
	37
254eca41	38	sub name : Global {
	39	my ($self, $c) = @_;
	40
	41	my $html = html( $c->config->{name}, "This is the die page" );
	42	$c->response->content_type("text/html");
	43	$c->response->output($html);
	44	}
	45
	46
6bc86362	47	sub html {
	48	my ( $title, $body ) = @_;
	49	return qq{
	50	<html>
	51	<head><title>$title</title></head>
	52	<body>
	53	$body
	54	<a href="/hello/">Hello</a>.
	55	</body></html>
	56	};
	57	}
	58
	59	1;
	60