VS::RuleEngine::Rule::InputMatchesRegexp - Generic rule for matching inputs against regular expressions

VS-RuleEngine documentation Contained in the VS-RuleEngine distribution.

Index

Code Index:

NAME

Top

VS::RuleEngine::Rule::InputMatchesRegexp - Generic rule for matching inputs against regular expressions

SYNOPSIS

Top

  use VS::RuleEngine::Declare;

  my $engine = engine {
      rule 'valid_name' => instanceof "VS::RuleEngine::Rule::InputMatchesRegexp" => with_args {
          'name' => qr/^\w+$/;
      }
  }

DESCRIPTION

Top

This is a generic rule that matches input against regular expressions (Perl5). All defined inputs must match their respective regexp for the rule to match. If no inputs are defined or any input doesn't match its regexp the rule does not match.

USAGE

Top

Rule arguments

This rule expects a hash reference as its argument, which is what with_args provides, where the key is the name of an input and the value is the regexp to match against.

VS-RuleEngine documentation Contained in the VS-RuleEngine distribution. 
package VS::RuleEngine::Rule::InputMatchesRegexp;

use strict;
use warnings;

use VS::RuleEngine::Constants;

use base qw(VS::RuleEngine::Rule);

sub new {
    my ($pkg, %args) = @_;
    
    # Compile regexps
    my %re;
    while (my ($input, $re) = each %args) {
        $re{$input} = $re;
    }
    my $self = bless { %re }, $pkg;
    
    return $self;
}

sub evaluate {
    my ($self, $input) = @_;
    
    # If we have nothing to match aginst it's a no match
    return KV_NO_MATCH unless %{$self};
    
    # The order we evaulate each change in is not relevant
    for my $key (keys %{$self}) {
        my $v1 = $input->get($key);
        my $re = $self->{$key};
        
        if ($v1 !~ $re) {
            return KV_NO_MATCH;
        }
    }
    
    # All thresholds passed therefore we have a match
    return KV_MATCH;
}

1;
__END__