Context Navigation

Changeset 10557

Timestamp:

04/27/08 16:19:52 (5 years ago)

Author:

tokuhirom

Message:

Web 関連の Role を Nanto::Web::Role::* にうつした

Location:

lang/perl/Nanto/trunk

Files:

r10530	r10557
6	6	use HTTP::Engine;
7	7	use lib catfile($FindBin::Bin, 'lib');
8		use SampleBBS::Handler;
9		use SampleBBS::Context;
	8	use SampleBBS::Web::Handler;
	9	use SampleBBS::Web::Context;
10	10
11	11	HTTP::Engine->new(
…	…
13	13	handle_request => sub {
14	14	my $c = shift;
15		my $handler = SampleBBS::Handler->new(
16		context => SampleBBS::Context->new( req => $c->req, res => $c->res )
	15	my $handler = SampleBBS::Web::Handler->new(
	16	context => SampleBBS::Web::Context->new( req => $c->req, res => $c->res )
17	17	);
18	18	$handler->handle();

r10530	r10557
1	1	package SampleBBS::Handler;
2	2	use Moose;
3		extends 'Nanto::Handler';
4
5		use constant base_name => 'SampleBBS';
	3	extends 'Nanto::Web::Handler';
6	4
7	5	1;

r10532	r10557
1		package Nanto::Role::Authorizer;
	1	package Nanto::Web::Role::Authorizer;
2	2	use strict;
3	3	use Moose::Role;

r10532	r10557
1		package Nanto::Role::Controller;
	1	package Nanto::Web::Role::Controller;
2	2	use strict;
3	3	use Moose::Role;

r10532	r10557
1		package Nanto::Role::Handler;
	1	package Nanto::Web::Role::Handler;
2	2	use strict;
3	3	use Moose::Role;

r10532	r10557
1		package Nanto::Role::View;
	1	package Nanto::Web::Role::View;
2	2	use strict;
3	3	use Moose::Role;
4
5		~~with 'MooseX::Object::Pluggable';~~
6	4
7	5	has params => (