File Coverage

blib/lib/Validator/LIVR/Rules/Common.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	10	10	100.0
condition	9	9	100.0
subroutine	8	8	100.0
pod	0	3	0.0
total	43	46	93.4

package Validator::LIVR::Rules::Common;

use strict;
use warnings;

our $VERSION = '0.09';

sub required {
    return sub {
        defined $_[0] && $_[0] ne '' ? undef : 'REQUIRED';
    }
}

sub not_empty {
    return sub {
        ! defined $_[0] || $_[0] ne '' ? undef : "CANNOT_BE_EMPTY"
    };
}

sub not_empty_list {
    sub {
        my $list = shift;
        return 'CANNOT_BE_EMPTY' if !defined($list) || $list eq '';
        return 'WRONG_FORMAT' if ref($list) ne 'ARRAY';
        return 'CANNOT_BE_EMPTY' unless scalar @$list;
        return;
    }
}


1;