File Coverage

blib/lib/VS/RuleEngine/Engine/Defaults.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	5	6	83.3
condition			n/a
subroutine	6	7	85.7
pod	4	4	100.0
total	34	39	87.1

use strict;
use warnings;

use Carp qw(croak);

sub add_defaults {
	my ($self, $name, $defaults) = @_;
	croak "Defaults '${name}' is already defined" if $self->has_defaults($name);

	if (ref $defaults ne 'HASH') {
	    croak "Expected hash reference but got '", ref $defaults, "'";
	}

	$self->_defaults->set($name => $defaults);
}

sub defaults {
	my $self = shift;
	return $self->_defaults->keys;
}

sub has_defaults {
    my ($self, $name) = @_;
    return $self->_defaults->exists($name);
}

sub get_defaults {
	my ($self, $name) = @_;

	if ($self->has_defaults($name)) {
		return $self->_defaults->get($name);
	}

	croak "Can't find defaults '$name'";
}

1;
__END__