Changeset 103

Show
Ignore:
Timestamp:
02/21/06 21:32:17
Author:
miyagawa
Message:

Fixed rule_hook bug. Fixes #51

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin.pm

    r79 r103  
    1111        rule => $opt->{rule}, 
    1212        rule_op => $opt->{rule_op} || 'AND', 
     13        rule_hook => '', 
    1314        meta => {}, 
    1415    }, $class; 
    …… 
    3132sub rule { $_[0]->{rule} } 
    3233 
    33 sub rule_hook { '' } 
     34sub rule_hook { 
     35    my $self = shift; 
     36    $self->{rule_hook} = shift if @_; 
     37    $self->{rule_hook}; 
     38} 
    3439 
    3540sub dispatch_rule_on { 
    3641    my($self, $hook) = @_; 
    37     $self->rule_hook eq $hook; 
     42    $self->rule_hook && $self->rule_hook eq $hook; 
    3843} 
    3944