File Coverage

blib/lib/VS/RuleEngine/InputHandler.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	9	10	90.0
condition	4	6	66.6
subroutine	10	10	100.0
pod	4	4	100.0
total	70	73	95.8

package VS::RuleEngine::InputHandler;

use strict;
use warnings;

use Carp qw(croak);
use Scalar::Util qw(refaddr blessed);

my %Global;
my %Local;
my %InputCache;

sub new {
    my ($pkg, %inputs) = @_;
    my $self = bless \%inputs, $pkg;

    $InputCache{refaddr $self} = {};
    $Global{refaddr $self} = undef;
    $Local{refaddr $self} = undef;

    return $self;
}

sub _clear {
    my $self = shift;

    my $caller = caller;
    croak "You are not allowed to clear the input" if $caller ne "VS::RuleEngine::Runloop";

    $InputCache{refaddr $self} = {};
}

sub set_global {
    my ($self, $global) = @_;
    croak "Not a VS::RuleEngine::Data instance" unless blessed $global && $global->isa("VS::RuleEngine::Data");
    $Global{refaddr $self} = $global;
}

sub set_local {
    my ($self, $local) = @_;
    croak "Not a VS::RuleEngine::Data instance" unless blessed $local && $local->isa("VS::RuleEngine::Data");
    $Local{refaddr $self} = $local;
}

sub DESTROY {
    my $self = shift;

    delete $InputCache{refaddr $self};
    delete $Global{refaddr $self};
    delete $Local{refaddr $self};
}

sub get {
    my $self = shift;
    my $input = shift;

    my $addr = refaddr $self;
    my $cache = $InputCache{$addr};
    if (exists $cache->{$input}) {
        return $cache->{$input};
    }

    croak "I don't know anything about '${input}'" if !exists $self->{$input};

    my $input_obj = $self->{$input};
    my $value = $input_obj->value($self, $Global{$addr}, $Local{$addr});
    $cache->{$input} = $value;

    return $value;
}

1;
__END__