File Coverage

blib/lib/Validator/Declarative/Rules/Converters.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	4	4	100.0
condition	4	6	66.6
subroutine	5	5	100.0
pod			n/a
total	24	26	92.3

#!/usr/bin/env perl
use strict;
use warnings;

package Validator::Declarative::Rules::Converters;
{
  $Validator::Declarative::Rules::Converters::VERSION = '1.20130722.2105';
}

# ABSTRACT: Declarative parameters validation - default converter rules

require Validator::Declarative;

#
# INTERNALS
#

sub _assume_true {
    my ($input) = @_;
    return ( defined($input) && $input =~ /^\s*(0|no|n|false|f|off)\s*$/i ) ? 0 : 1;
}

sub _assume_false {
    my ($input) = @_;
    return ( defined($input) && $input =~ /^\s*(1|yes|y|true|t|on)\s*$/i ) ? 1 : 0;
}

sub _register_default_converters {
    Validator::Declarative::register_converter(
        assume_true  => \&_assume_true,
        assume_false => \&_assume_false,
    );
}

_register_default_converters();


1;    # End of Validator::Declarative::Rules::Converters


__END__