Changeset 17982 for lang/perl/Nanto

Timestamp:

08/21/08 23:11:20 (5 years ago)

Author:

tokuhirom

Message:

override run_hook_filter.

Files:

• lang/perl/Nanto/trunk/lib/Nanto/Web/Handler.pm (modified) (2 diffs)

lang/perl/Nanto/trunk/lib/Nanto/Web/Handler.pm

@@ -7 +7 @@
             'resolve_plugin' => 'orig_resolve_plugin',
             'run_hook_filter' => 'orig_run_hook_filter',
+            'run_hook_first' => 'orig_run_hook_first',
         },
     },
@@ -18 +19 @@
 }
 
+sub run_hook_first {
+    my ( $self, $point, @args ) = @_;
+    Carp::croak 'missing hook point' unless $point;
+
+    for my $hook ( @{ $self->get_hook($point) } ) {
+        if ( my $res = $hook->{code}->( $hook->{plugin}, @args ) ) {
+            return $res;
+        }
+    }
+    return;
+}
+
 sub run_hook_filter {
     my ( $self, $point, @args ) = @_;
-    for my $hook ( @{ $self->__moosex_plaggerize_hooks->{$point} } ) {
+    for my $hook ( @{ $self->get_hook($point) } ) {
         @args = $hook->{code}->( $hook->{plugin}, @args );
     }