File Coverage

blib/lib/Data/Cleaner/Negint.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	4	6	66.6
condition	2	3	66.6
subroutine	6	6	100.0
pod			n/a
total	25	29	86.2

package Data::Cleaner::Negint;

use strict;
use warnings;

use Data::Types qw(is_int is_float);

our $VERSION = 0.0.1;
our $DEFAULT = 0;

sub _validate {
    (defined (is_int($_[1])) && $_[1] <= 0) ? return $_[1] : return undef;
}

sub _fix {

    if (defined(is_float($_[1]))) {
        $_[1] <= 0 ? return int($_[1]) : return (int($_[1]) * -1);
    } else {
        return $_[0]->get_default;
    }

}

sub _format {
    return $_[1];
}

1;

__END__