Changeset 10464

Timestamp:

04/26/08 00:00:03 (5 years ago)

Author:

tokuhirom

Message:

こまこまと変更してみた

Location:

lang/perl/Okina/trunk

Files:

• lib/Okina.pm (modified) (1 diff)
• okina-starter (modified) (2 diffs)

lang/perl/Okina/trunk/lib/Okina.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use 5.10.0;
+use 5.8.0;
 use Exporter 'import';
+our @EXPORT = qw/conf handle_request/;
 
 our $VERSION = '0.01';

lang/perl/Okina/trunk/okina-starter

@@ -166 +166 @@
   HTTP::Engine->new(
       config         => [% module %]->conf->{engine},
-      handle_request => \&[% module %]::handle_request,
+      handle_request => \&_handle_request,
   )->run;
+
+  sub _handle_request {
+        my $c = shift;
+        [% module %]->handle_request( $c );
+  }
 ---
 file: lib/$path
@@ -291 +296 @@
     plugins:
       - module: Interface::Standalone
-          conf:
+        conf:
           host: 0.0.0.0
           port: 14000