Changeset 14994 for lang/perl/App-MadEye

Timestamp:

07/01/08 18:13:21 (5 months ago)

Author:

tokuhirom

Message:

apply rule to notify plugins.

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye.pm (modified) (4 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye.pm

@@ -43 +43 @@
 
     if (%{$self->{results}}) {
-        $self->run_hook('notify' => $self->{results});
+        for my $obj ( @{ $self->class_component_hooks->{notify} } ) {
+            my ( $plugin, $method ) = ( $obj->{plugin}, $obj->{method} );
+            if ($self->_should_run( plugin => $plugin )) {
+                $self->run_hook('notify' => $self->{results});
+            }
+        }
     }
 
@@ -73 +78 @@
         @_ => +{
             plugin => 1,
-            target => 1,
+            target => 0,
         }
     );
@@ -84 +89 @@
                 $self,
                 +{
-                    target => $args->{target},
                     plugin => $args->{plugin},
+                    ($args->{target} ? ( target => $args->{target}) : () ),
                 }
             );
@@ -93 +98 @@
     return 1;
 }
+*_should_run = *_should_add_result;
 
 sub _load_rule {