Changeset 10462 for lang/perl/Okina/trunk/okina-starter

Timestamp:

04/25/08 23:47:08 (5 years ago)

Author:

tokuhirom

Message:

ハードコードしてんじゃねーよカス(why ヲ書イテミタ)

Files:

• lang/perl/Okina/trunk/okina-starter (modified) (2 diffs)

lang/perl/Okina/trunk/okina-starter

@@ -176 +176 @@
   use 5.00800;
   our $VERSION = '0.01';
-
   use UNIVERSAL::require;
   use [% module %]::Dispatcher;
-
-  sub handle_request {
-      my $c = shift;
-      my $res = [% module %]::Dispatcher->match( $c->req->as_http_request );
-      my $controller = $res->{controller};
-      my $action = $res->{action};
-      $controller->use or die $@;
-      # TODO: validate.
-      $controller->can($action)->( $c );
-  }
+  use [% module %]::Config;
+  use Okina;
 
   1;
@@ -205 +196 @@
 file: lib/$dist/Config.pm
 template: |
-  package Hoge::Config;
+  package [% module %]::Config;
   use strict;
   use warnings;