File Coverage

blib/lib/VS/RuleEngine/Rule/InputMatchesRegexp.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	39	40	97.5

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__