Changeset 13526

Show
Ignore:
Timestamp:
06/08/08 22:55:30 (7 years ago)
Author:
tokuhirom
Message:

some logic move from ulgori.pl to Ulgori.pm

Location:
lang/perl/Ulgori/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Ulgori/trunk/lib/Ulgori.pm

    r11808 r13526  
    44use 5.00800; 
    55our $VERSION = '0.01'; 
     6use Ulgori::Web::Handler; 
     7use Ulgori::Config; 
     8use Ulgori::ComponentManager::Singleton; 
     9 
     10use HTTP::Engine middlewares => [ 
     11    qw/ 
     12        ModuleReload 
     13        DebugScreen 
     14        DoCoMoGUID 
     15        +Ulgori::Web::Middleware::Encoding 
     16    / 
     17]; 
     18 
     19sub bootstrap { 
     20    Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload. 
     21 
     22    my $cfg = Ulgori::Config->instance; 
     23 
     24    HTTP::Engine->new( 
     25        interface => { 
     26            %{ $cfg->{Engine} }, 
     27            request_handler => \&Ulgori::Web::Handler::handler, 
     28        }, 
     29    )->run; 
     30} 
    631 
    7321; 
  • lang/perl/Ulgori/trunk/ulgori.pl

    r13510 r13526  
    55use File::Spec::Functions; 
    66use lib catfile($FindBin::Bin, 'lib'); 
    7 use HTTP::Engine middlewares => [ 
    8     qw/ 
    9         ModuleReload 
    10         DebugScreen 
    11         DoCoMoGUID 
    12         +Ulgori::Web::Middleware::Encoding 
    13     / 
    14 ]; 
    15 use Ulgori::Web::Handler; 
    16 use Ulgori::Config; 
    17 use Ulgori::ComponentManager::Singleton; 
     7use Ulgori; 
    188 
    19 Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload. 
     9Ulgori->bootstrap(); 
    2010 
    21 my $cfg = Ulgori::Config->instance; 
    22  
    23 HTTP::Engine->new( 
    24     interface => { 
    25         %{ $cfg->{Engine} }, 
    26         request_handler => \&Ulgori::Web::Handler::handler, 
    27     }, 
    28 )->run; 
    29