Changeset 25129 for lang/perl/NanoA

Timestamp:

11/27/08 17:53:38 (4 years ago)

Author:

kazuho

Message:

fix package_to_path

Location:

lang/perl/NanoA/trunk

Files:

• app/tinybbs/start.pm (modified) (3 diffs)
• lib/NanoA.pm (modified) (1 diff)
• plugin/form.pm (modified) (2 diffs)

lang/perl/NanoA/trunk/app/tinybbs/start.pm

@@ -10 +10 @@
 use base qw(NanoA);
 
-define_form(
+define_form
     fields => [
         title => {
@@ -32 +32 @@
             regexp     => 'email',
         },
-    ],
-);
+    ];
 
 sub run {
@@ -52 +51 @@
             $query->param('body'),
         );
-        # redirect
-        $app->redirect(
-            $app->nanoa_uri . '/tinybbs/',
-        );
+        # redirect to myself
+        $app->redirect;
     }
     

lang/perl/NanoA/trunk/lib/NanoA.pm

@@ -137 +137 @@
     my $pkg = shift;
     $pkg =~ s|::|/|g;
-    $pkg =~ s|/start||;
+    $pkg =~ s|/start$|/|;
     $pkg;
 }

lang/perl/NanoA/trunk/plugin/form.pm

@@ -13 +13 @@
     my ($klass, $controller) = @_;
     plugin::session->init_plugin($controller);
-    my $path = $controller;
-    $path =~ s|::|/|;
     no strict 'refs';
     no warnings 'redefine';
@@ -21 +19 @@
     *{$controller . '::define_form'} = sub {
         $form = NanoA::Form->new(
-            action => NanoA->nanoa_uri . '/' . $path,
+            action => NanoA->nanoa_uri . '/' . NanoA::package_to_path($controller),
             @_ == 1 ? %{$_[0]} : @_,
         );