File Coverage

blib/lib/Nephia/Plugin/FormValidator/Lite.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch			n/a
condition			n/a
subroutine	13	15	86.6
pod	1	3	33.3
total	57	63	90.4

package Nephia::Plugin::FormValidator::Lite;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.03";

use FormValidator::Lite;
use Carp qw/croak/;
use Try::Tiny;
use parent 'Nephia::Plugin';

sub new {
    my ($class, %opts) = @_;
    my $self = $class->SUPER::new(%opts);
    $self->{RUN_SQL} = [];
    return $self;
}

sub exports { qw/form/ }

sub form(@) {
    my $self = shift;
    my $context = shift;
    sub (@) {
        my %rule = @_;
        my $req = $context->get('req');
        my $conf = $context->get('config')->{'Plugin::FormValidator::Lite'};
        try {
            FormValidator::Lite->load_constraints(@{$conf->{constants}});
        }
        catch {
            croak 'Constraints of FormValidator::Lite is invalid format in config';
        };

        my $validator;
        try {
            $validator = FormValidator::Lite->new($req);
            $validator->load_function_message($conf->{function_message});
            $validator->check(
                %rule
            );

            # default param message is param key
            $validator->set_param_message(
                map { $_, $_ } keys %rule
            );
        }
        catch {
            die $_;
        };

        return $validator;
    };
}

1;
__END__