Changeset 17967 for lang/perl/Ulgori

Show
Ignore:
Timestamp:
08/21/08 20:19:22 (5 years ago)
Author:
tokuhirom
Message:

change component loading architecture

Location:
lang/perl/Ulgori/trunk/lib
Files:
1 removed
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Ulgori/trunk/lib/Ulgori.pm

    r17951 r17967  
    44use 5.00800; 
    55our $VERSION = '0.01'; 
     6use Ulgori::Config; 
    67use Ulgori::Web::Handler; 
    7 use Ulgori::Config; 
    88use Ulgori::ComponentManager::Singleton; 
    99use Ulgori::Util; 
    … …  
    1818 
    1919sub bootstrap { 
    20     Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload. 
    21  
    2220    my $cfg = Ulgori::Config->instance; 
    2321 

  • lang/perl/Ulgori/trunk/lib/Ulgori/Config.pm

    r13561 r17967  
    1313} 
    1414 
     15sub load { 
     16    my $class = shift; 
     17    $class->instance; 
     18} 
     19 
    15201; 

  • lang/perl/Ulgori/trunk/lib/Ulgori/Model/Log.pm

    r17655 r17967  
    11package Ulgori::Model::Log; 
    22use Moose; 
    3 extends 'Ulgori::Component::FromConfig'; 
    43use MooseX::Method; 
    54use Ulgori::Config; 

  • lang/perl/Ulgori/trunk/lib/Ulgori/Web/C/Root.pm

    r17951 r17967  
    2727        }->( $req->params->{date} ); 
    2828 
    29         my $log = Ulgori::ComponentManager::Singleton->get('Model::Log'); 
    30  
    31         my $rs = $log->retrieve_all( 
     29        my $rs = instance('Model::Log')->retrieve_all( 
    3230            date             => $date, 
    3331            keyword          => $req->params->{keyword} || undef,