File Coverage

blib/lib/FormValidator/LazyWay/Filter/Unify.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package FormValidator::LazyWay::Filter::Unify;
2              
3 2     2   13 use strict;
  2         4  
  2         87  
4 2     2   12 use warnings;
  2         4  
  2         61  
5 2     2   12 use utf8;
  2         3  
  2         15  
6              
7             sub hyphen {
8 2     2 1 4 my $text = shift;
9              
10 2         48 $text =~ s/[\x{30FC}\x{2015}\x{2500}\x{2501}\x{02D7}\x{2010}-\x{2012}\x{FE63}\x{FF0D}]/-/xmsg;
11 2         9 $text;
12             }
13              
14             1;
15              
16             =head1 NAME
17              
18             FormValidator::LazyWay::Filter::Unify - 複数の文字を統一する filter
19              
20             =head1 METHOD
21              
22             =head2 hyphen
23              
24             ハイフンっぽい文字を - に統一する
25              
26             =cut
27              
28