File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	14	14	100.0
pod	10	10	100.0
total	46	46	100.0

#!/usr/bin/env perl
#*
#* Info: Ref 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::Ref;
{
    use strict;
    use warnings;
    use utf8;

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

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

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

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

    #=---------
    #  Scalar
    #=---------
    #* scalar type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Scalar {
        Params::Dry::Types::Ref( $_[0], 'SCALAR' );
    } #+ end of: sub Scalar

    #=--------
    #  Array
    #=--------
    #* array type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Array {
        Params::Dry::Types::Ref( $_[0], 'ARRAY' );
    } #+ end of: sub Array

    #=-------
    #  Hash
    #=-------
    #* hash type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Hash {
        Params::Dry::Types::Ref( $_[0], 'HASH' );
    } #+ end of: sub Hash

    #=-------
    #  Code
    #=-------
    #* code type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Code {
        Params::Dry::Types::Ref( $_[0], 'CODE' );
    } #+ end of: sub Code

    #=-------
    #  Glob
    #=-------
    #* glob type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Glob {
        Params::Dry::Types::Ref( $_[0], 'GLOB' );
    } #+ end of: sub Glob

    #=-------
    #  Ref
    #=-------
    #* Ref to Ref type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Ref {
        Params::Dry::Types::Ref( $_[0], 'REF' );
    } #+ end of: sub Ref

    #=---------
    #  LValue
    #=---------
    #* lvalue type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub LValue {
        Params::Dry::Types::Ref( $_[0], 'LVALUE' );
    } #+ end of: sub LValue

    #=---------
    #  Format
    #=---------
    #* format type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Format {
        Params::Dry::Types::Ref( $_[0], 'FORMAT' );
    } #+ end of: sub Format

    #=----------
    #  VString
    #=----------
    #* glob type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub VString {
        Params::Dry::Types::Ref( $_[0], 'VSTRING' );
    } #+ end of: sub VString

    #=---------
    #  Regexp
    #=---------
    #* glob type check
    #* RETURN: PASS if test pass otherwise FAIL
    sub Regexp {
        Params::Dry::Types::Ref( $_[0], 'Regexp' );
    } #+ end of: sub Regexp

};
0115 && 0x4d;

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