Changeset 52

Show
Ignore:
Timestamp:
02/08/06 18:47:36
Author:
miyagawa
Message:
  • Rename Rule::Compound to Rules to be more intuitive
  • Fixed Compound bug when there's no available rules for a phase
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r46 r52  
    33 
    44use Plagger::Rule; 
    5 use Plagger::Rule::Compound; 
     5use Plagger::Rules; 
    66 
    77sub new { 
    …… 
    2222        $rule = [ $rule ] if ref($rule) eq 'HASH'; 
    2323        my $op = $self->{rule_op}; 
    24         $self->{rule} = Plagger::Rule::Compound->new($op, @$rule); 
     24        $self->{rule} = Plagger::Rules->new($op, @$rule); 
    2525    } else { 
    2626        $self->{rule} = Plagger::Rule->new({ module => 'Always' }); 

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

    r51 r52  
    1 package Plagger::Rule::Compound; 
     1package Plagger::Rules; 
    22use strict; 
    33 
    …… 
    3333    } 
    3434 
     35    # can't find rules for this phase: execute it 
     36    return 1 unless @bool; 
     37 
    3538    my $bool = reduce { $self->{ops_sub}->($a, $b) } @bool; 
    3639    $bool = !$bool if $self->{ops_not};