File Coverage

blib/lib/Data/Cleaner/Hex.pm

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

package Data::Cleaner::Hex;

use strict;
use warnings;

use Data::Validate qw(is_hex);

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

sub _validate {
    my $hex = $_[1];
    $hex =~ s/^0x//i;
    is_hex($hex) ? return $hex : return undef;
}

sub _fix {
    return $_[0]->get_default;
}

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

1;

__END__