File Coverage

blib/lib/VS/RuleEngine/Data.pm

Criterion	Covered	Total	%
statement	26	39	66.6
branch	1	6	16.6
condition			n/a
subroutine	10	15	66.6
pod	10	10	100.0
total	47	70	67.1

package VS::RuleEngine::Data;

use strict;
use warnings;

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

my %Locked;

sub lock {
	my $self = shift;
	$Locked{refaddr $self} = 1;
}

sub unlock {
	my $self = shift;
	delete $Locked{refaddr $self};
}

sub new {
	my $pkg = shift;
	my $self = bless { @_ }, $pkg;
	return $self;
}

sub set {
	my ($self, $key, $value) = @_;
	croak "Can't modify locked object" if $Locked{refaddr $self};
	$self->{$key} = $value;
}

*put = \&set;

sub delete {
	my ($self, $key) = @_;
	croak "Can't modify locked object" if $Locked{refaddr $self};
	CORE::delete $self->{$key};
}

sub clear {
    my $self = shift;
	croak "Can't modify locked object" if $Locked{refaddr $self};
    delete $self->{$_} for keys %{$self};
}

sub get {
	my ($self, $key) = @_;
	return $self->{$key};
}

sub keys {
	my $self = shift;
	return CORE::keys %$self;
}

sub values {
	my $self = shift;
	return CORE::values %$self;
}

sub exists {
	my ($self, $key) = @_;
	return CORE::exists $self->{$key};
}

sub DESTROY {
    my $self = shift;
    delete $Locked{refaddr $self};
}

1;
__END__