File Coverage

blib/lib/Data/Cleaner/Boolean.pm

Criterion	Covered	Total	%
statement	11	12	91.6
branch	5	6	83.3
condition	2	3	66.6
subroutine	5	5	100.0
pod			n/a
total	23	26	88.4

package Data::Cleaner::Boolean;

use strict;
use warnings;

our $VERSION = 0.0.1;
our $DEFAULT = 'false';

sub _validate {
    $_[1] =~ /^true$/i || $_[1] =~ /^false$/i ? return $_[1] : return undef;
}

sub _fix {

    if ($_[1] =~ /^yes$/i) {
        return 'true';
    } elsif ($_[1] =~ /^no$/i) {
        return 'false';
    } else {
        return 'false';
    }

}

sub _format {
    return lc($_[1]);
}

1;

__END__