Changeset 10567

Show
Ignore:
Timestamp:
04/27/08 17:11:09 (7 months ago)
Author:
tokuhirom
Message:

いちおうぜんぶうごくようにした

Location:
lang/perl/Nanto/trunk
Files:
1 added
14 modified
2 moved

Legend:

Unmodified
Added
Removed

  • lang/perl/Nanto/trunk/examples/SampleBBS/bin/nanto-server.pl

    r10557 r10567  
    1111HTTP::Engine->new( 
    1212    config => 'engine-config.yaml', 
    13     handle_request => sub { 
    14         my $c = shift; 
    15         my $handler = SampleBBS::Web::Handler->new( 
    16             context => SampleBBS::Web::Context->new( req => $c->req, res => $c->res ) 
    17         ); 
    18         $handler->handle(); 
    19     }, 
     13    handle_request => \&_handle_request, 
    2014)->run; 
    2115 
     16sub _handle_request { 
     17    my $c = shift; 
     18    my $handler = SampleBBS::Web::Handler->new( 
     19        context => SampleBBS::Web::Context->new( req => $c->req, res => $c->res ) 
     20    ); 
     21    $handler->handle(); 
     22} 

  • lang/perl/Nanto/trunk/examples/SampleBBS/lib/SampleBBS/Web/C/Root.pm

    r10556 r10567  
    1 package SampleBBS::C::Root; 
     1package SampleBBS::Web::C::Root; 
    22use Moose; 
    3 with 'Nanto::Role::Controller'; 
     3with 'Nanto::Web::Role::Controller'; 
    44 
    55sub dispatch_index { 
    … …  
    2323    my $body = $c->req->params->{'body'}; 
    2424 
    25     if ( $c->is_post_request && $body ) { 
     25    if ( $c->req->method eq 'POST' && $body ) { 
    2626        my $user_id = 'Anonymous Coward'; 
    2727        $c->factory('DBIC')->resultset('Post')->create( { body => $body, userid => $user_id, } ); 
    2828    } 
    2929 
    30     $c->redirect( $c->dispatcher->uri_for({controller => 'Root', action => 'index'}) ); 
     30    $c->res->redirect( $c->dispatcher->uri_for({controller => 'Root', action => 'index'}) ); 
    3131} 
    3232 

  • lang/perl/Nanto/trunk/examples/SampleBBS/lib/SampleBBS/Web/Context.pm

    r10556 r10567  
    22use Moose; 
    33extends 'Nanto::Web::Context'; 
    4 with 'Nanto::Plugin::Factory'; 
    54 
    6 use Nanto::Authorizer::Null; 
    7 sub create_authorizer { Nanto::Authorizer::Null->new } 
     5use Nanto::Web::Authorizer::Null; 
     6sub create_authorizer { Nanto::Web::Authorizer::Null->new } 
    87 
    9 use Nanto::View::TT; 
     8use Nanto::Web::View::TT; 
    109sub create_view       { 
    11     my $view = Nanto::View::TT->new; 
     10    my $view = Nanto::Web::View::TT->new; 
    1211    $view->tmpl_fname('tmpl/index.html'); 
    1312    $view; 

  • lang/perl/Nanto/trunk/examples/SampleBBS/lib/SampleBBS/Web/Dispatcher.pm

    r10530 r10567  
    1 package SampleBBS::Dispatcher; 
     1package SampleBBS::Web::Dispatcher; 
    22use strict; 
    33use warnings; 

  • lang/perl/Nanto/trunk/examples/SampleBBS/lib/SampleBBS/Web/Handler.pm

    r10557 r10567  
    1 package SampleBBS::Handler; 
     1package SampleBBS::Web::Handler; 
    22use Moose; 
    33extends 'Nanto::Web::Handler'; 

  • lang/perl/Nanto/trunk/lib/Nanto/Config/Any.pm

    r10530 r10567  
    44use File::Spec::Functions; 
    55use Carp; 
     6use Config::Any; 
    67 
    78with 'Nanto::Role::Config'; 

  • lang/perl/Nanto/trunk/lib/Nanto/Factory/DBIC.pm

    r10544 r10567  
    1 package Nanto::Factory::MobileAttribute; 
     1package Nanto::Factory::DBIC; 
    22use Moose; 
    33with 'Nanto::Role::Factory'; 
    44 
    5 override per_context => sub { 1 }; 
     5sub per_context { 1 }; 
    66 
    77sub create { 

  • lang/perl/Nanto/trunk/lib/Nanto/Factory/MobileAttribute.pm

    r10544 r10567  
    44use HTTP::MobileAttribute; 
    55 
    6 override per_context => sub { 1 }; 
     6sub per_context { 1 } 
    77 
    88sub create { 

  • lang/perl/Nanto/trunk/lib/Nanto/Role/Context.pm

    r10556 r10567  
    22use strict; 
    33use Moose::Role; 
     4use UNIVERSAL::require; 
    45 
    56with 'Nanto::Plugin::Factory'; 
    … …  
    78sub base_name { 
    89    my $self = shift; 
     10    (my $base_name = $self->local_base_name) =~ s/::[^:]+$//; 
     11    $base_name; 
     12} 
     13 
     14sub local_base_name { 
     15    my $self = shift; 
    916    my $proto = ref $self || $self; 
    10     (my $base_name = $proto) =~ s/.+::Context//g; 
    11     $base_name; 
     17    (my $local_base_name = $proto) =~ s/::Context.*//g; 
     18    $local_base_name; 
    1219} 
    1320 
    … …  
    2431} 
    2532 
     33sub local_component { 
     34    my ($self, $moniker) = @_; 
     35    my $pkg = $self->local_base_name . "::$moniker"; 
     36    $pkg->use or die $@; 
     37    $pkg; 
     38} 
     39 
    26401; 

  • lang/perl/Nanto/trunk/lib/Nanto/Web/Authorizer/Null.pm

    r10558 r10567  
    1 package Nanto::Authorizer::Null; 
     1package Nanto::Web::Authorizer::Null; 
    22use Moose; 
    33 

  • lang/perl/Nanto/trunk/lib/Nanto/Web/Context.pm

    r10556 r10567  
    1 package Nanto::Context::Web; 
     1package Nanto::Web::Context; 
    22use strict; 
    33use Moose; 
    … …  
    1616has view => ( 
    1717    is => 'rw', 
    18     does => 'Nanto::Role::View', 
     18    does => 'Nanto::Web::Role::View', 
    1919    default => sub { 
    2020        my $self = shift; 
    … …  
    2525sub dispatcher { 
    2626    my $self = shift; 
    27     $self->component('Dispatcher'); 
     27    $self->local_component('Dispatcher'); 
    2828} 
    2929 
    3030sub create_authorizer { 
    3131    my $self = shift; 
    32     $self->component('Authorizer'); 
     32    $self->local_component('Authorizer'); 
    3333} 
    3434 
    3535sub create_view { 
    3636    my $self = shift; 
    37     $self->component('V'); 
     37    $self->local_component('V'); 
    3838} 
    3939 
    4040sub create_controller { 
    4141    my ($self, $moniker) = @_; 
    42     my $pkg = join('::', $self->base_name, $moniker); 
     42    my $pkg = join('::', $self->local_base_name, 'C', $moniker); 
    4343    $pkg->use or die $@; 
     44    $pkg; 
    4445} 
    4546 

  • lang/perl/Nanto/trunk/lib/Nanto/Web/Handler.pm

    r10558 r10567  
    1 package Nanto::Handler; 
     1package Nanto::Web::Handler; 
    22use Moose; 
    33with 'Nanto::Web::Role::Handler'; 

  • lang/perl/Nanto/trunk/lib/Nanto/Web/Role/Controller.pm

    r10557 r10567  
    88    return if $c->finished; 
    99 
    10     if ($c->is_post_request) { 
     10    if ($c->req->method eq 'POST') { 
    1111        my $meth = "post_dispatch_$page"; 
    1212        if ($self->can($meth)) { 

  • lang/perl/Nanto/trunk/lib/Nanto/Web/View/TT.pm

    r10558 r10567  
    1 package Nanto::View::TT; 
     1package Nanto::Web::View::TT; 
    22use Moose; 
    33use Template;