Changeset 13526

Timestamp:

06/08/08 22:55:30 (5 years ago)

Author:

tokuhirom

Message:

some logic move from ulgori.pl to Ulgori.pm

Location:

lang/perl/Ulgori/trunk

Files:

• lib/Ulgori.pm (modified) (1 diff)
• ulgori.pl (modified) (1 diff)

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

@@ -4 +4 @@
 use 5.00800;
 our $VERSION = '0.01';
+use Ulgori::Web::Handler;
+use Ulgori::Config;
+use Ulgori::ComponentManager::Singleton;
+
+use HTTP::Engine middlewares => [
+    qw/
+        ModuleReload
+        DebugScreen
+        DoCoMoGUID
+        +Ulgori::Web::Middleware::Encoding
+    /
+];
+
+sub bootstrap {
+    Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload.
+
+    my $cfg = Ulgori::Config->instance;
+
+    HTTP::Engine->new(
+        interface => {
+            %{ $cfg->{Engine} },
+            request_handler => \&Ulgori::Web::Handler::handler,
+        },
+    )->run;
+}
 
 1;

lang/perl/Ulgori/trunk/ulgori.pl

@@ -5 +5 @@
 use File::Spec::Functions;
 use lib catfile($FindBin::Bin, 'lib');
-use HTTP::Engine middlewares => [
-    qw/
-        ModuleReload
-        DebugScreen
-        DoCoMoGUID
-        +Ulgori::Web::Middleware::Encoding
-    /
-];
-use Ulgori::Web::Handler;
-use Ulgori::Config;
-use Ulgori::ComponentManager::Singleton;
+use Ulgori;
 
-Ulgori::ComponentManager::Singleton->get( 'Model::Log' ); # preload.
+Ulgori->bootstrap();
 
-my $cfg = Ulgori::Config->instance;
-
-HTTP::Engine->new(
-    interface => {
-        %{ $cfg->{Engine} },
-        request_handler => \&Ulgori::Web::Handler::handler,
-    },
-)->run;
-