package FormValidator::LazyWay::Filter::Unify;
use strict;
use warnings;
use utf8;
sub hyphen {
my $text = shift;
$text =~ s/[\x{30FC}\x{2015}\x{2500}\x{2501}\x{02D7}\x{2010}-\x{2012}\x{FE63}\x{FF0D}]/-/xmsg;
$text;
}
1;
=head1 NAME
FormValidator::LazyWay::Filter::Unify - 複数の文字を統一する filter
=head1 METHOD
=head2 hyphen
ハイフンっぽい文字を - に統一する
=cut