File Coverage

blib/lib/CHI/Test/Driver/Role/CheckKeyValidity.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	22	25	88.0

package CHI::Test::Driver::Role::CheckKeyValidity;
$CHI::Test::Driver::Role::CheckKeyValidity::VERSION = '0.60';
use Carp;
use Moo::Role;
use strict;
use warnings;

has 'test_object' => ( is => 'rw' );

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

before 'set' => sub {
    my ( $self, $key ) = @_;
    $self->verify_valid_test_key($key);
};

sub verify_valid_test_key {
    my ( $self, $key ) = @_;
    croak "invalid test key '$key'"
      if ( defined($key)
        && !exists( $self->test_object->{all_test_keys_hash}->{$key} ) );
}

1;