File Coverage

blib/lib/Hook/Modular/Rule.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	52	55	94.5

use 5.008;
use strict;
use warnings;

package Hook::Modular::Rule;
BEGIN {
  $Hook::Modular::Rule::VERSION = '1.101050';
}
# ABSTRACT: A Workflow rule
use UNIVERSAL::require;

sub new {
    shift;   # we don't need the class
    my $config = shift;
    if (my $exp = $config->{expression}) {
        $config->{module} = 'Expression';
    }
    my $module_suffix = delete $config->{module};
    my $module;
    my $found = 0;
    my @tried;
    for my $ns (Hook::Modular->rule_namespaces) {
        $module = $ns . '::' . $module_suffix;
        push @tried => $module;
        if ($module->require) {
            $found++;
            last;
        }
    }
    $found or die sprintf "can't find any of %s", join(', ' => @tried);
    my $self = bless {%$config}, $module;
    $self->init;
    $self;
}
sub init { }
use constant id       => 'xxx';
use constant as_title => 'xxx';
1;


__END__