File Coverage

lib/Mojolicious/Plugin/Data/Validate/WithYAML.pm

Criterion	Covered	Total	%
statement	48	52	92.3
branch	14	24	58.3
condition	2	5	40.0
subroutine	9	9	100.0
pod	1	1	100.0
total	74	91	81.3

package Mojolicious::Plugin::Data::Validate::WithYAML;

# ABSTRACT: validate form input with Data::Validate::WithYAML

use strict;
use warnings;

use parent 'Mojolicious::Plugin';

use Carp;
use Data::Validate::WithYAML;
use File::Spec;

our $VERSION = 0.04;

sub register {
    my ($self, $app, $config) = @_;

    $config->{conf_path} ||= $self->home;
    $config->{no_steps}  //= 1;

    $app->helper( 'validate' => sub {
        my ($c, $file) = @_;

        if ( !$file ) {
            my @caller = caller(2);
            $file      = (split /::/, $caller[3])[-1];
        }

        my $path = File::Spec->rel2abs( File::Spec->catfile( $config->{conf_path}, $file . '.yml' ) );

        if ( !-e $path ) {
            croak "$path does not exist";
        }

        my $validator = Data::Validate::WithYAML->new(
            $path,
            %{ $config || { no_steps => 1 } },
        ) or croak $Data::Validate::WithYAML::errstr;

        my $params = $c->req->params->to_hash;
        my %errors = $validator->validate( %{ $params || {} } );

        my $prefix          = exists $config->{error_prefix} ? $config->{error_prefix} : 'ERROR_';
        my %prefixed_errors = map{ ( "$prefix$_" => $errors{$_} ) } keys %errors;

        return %prefixed_errors;
    });

    $app->helper( 'fieldinfo' => sub {
        my ($c, $file, $field, $subinfo) = @_;

        if ( !$file ) {
            my @caller = caller(2);
            $file      = (split /::/, $caller[3])[-1];
        }

        my $path = File::Spec->rel2abs( File::Spec->catfile( $config->{conf_path}, $file . '.yml' ) );

        if ( !-e $path ) {
            croak "$path does not exist";
        }

        my $validator = Data::Validate::WithYAML->new(
            $path,
            %{ $config || { no_steps => 1 } },
        ) or croak $Data::Validate::WithYAML::errstr;

        my $info = $validator->fieldinfo( $field );

        return if !$info;

        return $info if !$subinfo;
        return $info->{$subinfo};
    });
}

1;

__END__