File Coverage

blib/lib/Data/Cleaner/Utf8.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch	2	2	100.0
condition	2	3	66.6
subroutine	5	6	83.3
pod			n/a
total	22	26	84.6

package Data::Cleaner::Utf8;

use strict;
use warnings;

use Encode qw(decode encode is_utf8);

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

sub _validate {
    my $decoded = decode($_[0]->get_encoding, $_[1]);
    is_utf8($decoded) && ($decoded eq $_[1]) ? return $decoded : return undef;
}

sub _fix {
    my $encoded = encode('UTF-8', $_[1]);
    return $encoded;
}

sub _format {
    my $encoded = encode('UTF-8', $_[1]);
    return $encoded;
}

1;

__END__