Changeset 24241 for lang

Timestamp:

11/19/08 14:02:32 (5 years ago)

Author:

kazuho

Message:

integrate run and run_as

Location:

lang/perl/NanoA/trunk

Files:

• app/system/plugin/counter.pm (modified) (1 diff)
• lib/NanoA.pm (modified) (1 diff)
• lib/NanoA/Dispatch.pm (modified) (1 diff)
• lib/NanoA/TemplateLoader.pm (modified) (1 diff)

lang/perl/NanoA/trunk/app/system/plugin/counter.pm

@@ -1 +1 @@
 package system::plugin::counter;
 
-sub run_as {
-    my ($klass, $app, $c) = @_;
+use strict;
+use warnings;
+use utf8;
+
+sub run {
+    my ($app, $c) = @_;
     
     # 指定された名前、あるいはコントローラのパッケージ名を名前に使う

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

@@ -5 +5 @@
 use utf8;
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 my %REQUIRED;

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

@@ -49 +49 @@
         unless $handler_klass;
     
-    $handler_klass->run_as($app, $c);
+    my $f = \&{"$handler_klass\::run"};
+    $f->($app, $c);
 }
 

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

@@ -40 +40 @@
     $code->();
 }
-sub run_as {
-    my (\$klass, \$app, \$c) = \@_;
-    run(\$app, \$c);
-}
 1;
 EOT