File Coverage

blib/lib/String/Normal/Type.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	46	46	100.0

package String::Normal::Type;
use strict;
use warnings;

use String::Normal::Type::Business;
use String::Normal::Type::Address;
use String::Normal::Type::Phone;
use String::Normal::Type::State;
use String::Normal::Type::City;
use String::Normal::Type::Zip;
use String::Normal::Type::Title;

sub _scrub_value {
    my $value = shift;

    $value = _deaccent_value( $value );
    $value =~ tr/'//d;

    # replace all rejected charactes with space
    $value =~ s/[^a-z0-9#]/ /g;

    return $value
}

sub _deaccent_value {
    my $value = shift;

    # remove decorations and stem variations of single quotes
    $value =~ tr[àáâãäåæçèéêëìíîïñòóôõöøùúûüýÿ’`\x92]
                [aaaaaaaceeeeiiiinoooooouuuuyy'''];

    return $value;
}

1;

__END__