File Coverage

blib/lib/Params/Dry/Types/Number.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	12	12	100.0
condition	23	30	76.6
subroutine	7	7	100.0
pod	3	3	100.0
total	66	73	90.4

#!/usr/bin/env perl
#*
#* Info: Number types definitions module
#* Author: Pawel Guspiel (neo77)
#*
#* This module keeps validation functions. You can of course add your modules which uses this and will add additional checks
#* Build in types for Params::Dry
#*
package Params::Dry::Types::Number;
{
    use strict;
    use warnings;
    use utf8;

# --- version ---
    our $VERSION = 1.20_01;

#=------------------------------------------------------------------------ { use, constants }

    use Params::Dry::Types qw(:const);

#=------------------------------------------------------------------------ { module public functions }

    #=------
    #  Int
    #=------
    #* int type check Int[3] - no more than 999
    #* RETURN: PASS if test pass otherwise FAIL
    sub Int {
        ( ref( $_[0] ) or $_[0] !~ /^[+\-]?(\d+)$/ ) and return FAIL;
        $_[1] and $1 and length $1 > $_[1] and return FAIL;
        PASS;
    } #+ end of: sub Int

    #=--------
    #  Float
    #=--------
    #* float type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Float {
        ( ref( $_[0] ) or $_[0] !~ /^[+\-]?(\d+(\.\d+)?)$/ ) and return FAIL;
        $_[1] and $1 and length $1 > $_[1] and return FAIL;
        $_[2] and $2 and length $2 > $_[2] + 1 and return FAIL;
        PASS;
    } #+ end of: sub Float

    #=-------
    #  Bool
    #=-------
    #* Bool type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Bool {
        return PASS if !ref( $_[0] ) and ( "$_[0]" eq '0' or "$_[0]" eq 1 );
        FAIL;
    } #+ end of: sub Bool

};
0115 && 0x4d;

#+ End of Params::Dry::Types::Number
__END__