File Coverage

blib/lib/FormValidator/Simple/Struct/CharTypes.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 14 14 100.0
pod n/a
total 38 38 100.0


line stmt bran cond sub pod time code
1             package FormValidator::Simple::Struct::CharTypes;
2 10     10   347 use 5.008_001;
  10         34  
  10         367  
3 10     10   59 use strict;
  10         15  
  10         321  
4 10     10   62 use warnings;
  10         14  
  10         346  
5 10     10   52 use utf8;
  10         16  
  10         115  
6              
7             our $VERSION = '0.14';
8              
9 10     10   569 use base 'Exporter';
  10         16  
  10         2540  
10             our @EXPORT= qw/CHARTYPE::HIRAGANA CHARTYPE::KATAKANA CHARTYPE::KANJI CHARTYPE::GREEK CHARTYPE::ASCII CHARTYPE::CYRILLIC CHARTYPE::MATH CHARTYPE::NUMBER CHARTYPE::PUNCTUATION/;
11              
12             sub CHARTYPE::HIRAGANA{
13 18     18   66 '^\x{3040}-\x{309F}';
14             }
15              
16             sub CHARTYPE::KATAKANA{
17 6     6   23 '^\x{30A0}-\x{30FF}\x{FF00}-\x{FFEF}';
18             }
19              
20             sub CHARTYPE::KANJI{
21 1     1   5 '^\x{4E00}-\x{9FFF}';
22             }
23              
24             sub CHARTYPE::ASCII{
25 1     1   4 '^\x{0000}-\x{007F}';
26             }
27              
28             sub CHARTYPE::GREEK{
29 2     2   7 '^\x{0370}-\x{03FF}';
30             }
31              
32             sub CHARTYPE::NUMBER{
33 2     2   8 '^\x{2150}-\x{218F}';
34             }
35              
36             sub CHARTYPE::CYRILLIC{
37 2     2   8 '^\x{0400}-\x{04FF}';
38             }
39              
40             sub CHARTYPE::MATH{
41 2     2   8 '^\x{2200}-\x{22FF}';
42             }
43              
44             sub CHARTYPE::PUNCTUATION{
45 1     1   4 '^\x{2000}-\x{206F}';
46             }
47              
48             1;
49              
50             __END__