File Coverage

blib/lib/VS/RuleEngine/Action/SetLocal.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	30	30	100.0

package VS::RuleEngine::Action::SetLocal;

use strict;
use warnings;

use Carp qw(croak);

use VS::RuleEngine::Constants;

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

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

sub perform {
    my ($self, $local) = @_[KV_SELF, KV_LOCAL];

    while (my ($k, $v) = each %$self) {
        $local->set($k => $v);
    }
}

1;
__END__