File Coverage

blib/lib/Hook/Modular/Rules.pm

Criterion	Covered	Total	%
statement	24	30	80.0
branch	5	8	62.5
condition			n/a
subroutine	7	9	77.7
pod	4	4	100.0
total	40	51	78.4

use 5.008;
use strict;
use warnings;

package Hook::Modular::Rules;
BEGIN {
  $Hook::Modular::Rules::VERSION = '1.101050';
}
# ABSTRACT: Workflow rules
use Hook::Modular::Operator;

sub new {
    my ($class, $op, @rules) = @_;
    Hook::Modular::Operator->is_valid_op(uc($op))
      or Hook::Modular->context->error("operator $op not supported");
    bless {
        op    => uc($op),
        rules => [ map Hook::Modular::Rule->new($_), @rules ],
    }, $class;
}

sub dispatch {
    my ($self, $plugin, $hook, $args) = @_;
    return 1 unless $plugin->dispatch_rule_on($hook);
    my @bool;
    for my $rule (@{ $self->{rules} }) {
        push @bool, ($rule->dispatch($args) ? 1 : 0);
    }

    # can't find rules for this phase: execute it
    return 1 unless @bool;
    Hook::Modular::Operator->call($self->{op}, @bool);
}

sub id {
    my $self = shift;
    join '|', map $_->id, @{ $self->{rules} };
}

sub as_title {
    my $self = shift;
    join " $self->{op} ", map $_->as_title, @{ $self->{rules} };
}
1;


__END__