File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Input.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	39	42	92.8

use strict;
use warnings;

use Moo;
use Storable qw(dclone);
use Hash::Util qw(lock_hashref);
use Types::Standard qw(HashRef);
use namespace::clean;

### Input ###
# Class to isolate and manipulate input HashRef.

has _input => (
    is       => 'ro',
    isa      => HashRef,
    required => 1,
    init_arg => 'input',
);

    my ($self, %args) = @_;

    if (my $input = $args{input}) {
        $args{input} = $self->_clone_and_lock_input($input);
    }

    return \%args;
}

    return $_[0]->_input;
}

# Create locked copy.
    # Copy input to work with isolated HashRef.
    my $input = dclone($_[1]);

    # Lock input to prevent accidental modifying.
    return lock_hashref($input);
}

1;