File Coverage

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

Criterion	Covered	Total	%
statement	26	27	96.3
branch	4	6	66.6
condition	4	8	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	42	49	85.7

package VS::RuleEngine::Rule::InputUnderThreshold;

use strict;
use warnings;

use VS::RuleEngine::Constants;

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

sub new {
    my ($pkg, %args) = @_;
    my $self = bless { %args }, $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) || 0;

        my $change = $self->{$key};

        if ($change && ($v1 / $change) >= 1) {
            return KV_NO_MATCH;
        }

        if (!$change && $v1) {
            return KV_NO_MATCH;
        }
    }

    # All thresholds passed therefore we have a match
    return KV_MATCH;
}

1;

=head1 NAME

VS::RuleEngine::Rule::InputUnderThreshold - Generic rule for checking input thresholds

=head1 SYNOPSIS

  use VS::RuleEngine::Declare;

  my $engine = engine {
      rule 'valid_name' => instanceof "VS::RuleEngine::Rule::InputUnderThreshold" => with_args {
          'input_1' => 5,
          'input_2' => -5,
      }
  }

=head1 DESCRIPTION

This is a generic rule that checks if the value from an input is does not pass a
threshold relative to 0. This can be used to model change matrices where a row
represets a rule.

The following table shows the conditions when it matches

  Input | Threshold | Result
  ------+-----------+-------
  x     | 0         | match
  > y   | y > 0     | no match
  > y   | y < 0     | match
  < y   | y < 0     | no match
  < y   | y > 0     | match

=head1 USAGE

=head2 Rule arguments

This rule expects a hash reference as its argument, which is what C<< with_args >> provides,
where the key is the name of an input and the value is the expected threshold value.

=begin PRIVATE

=over 4

=item new

L

=item evaluate

L

=back

=end PRIVATE

=cut