| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package FormValidator::Lite::Messages::en; |
|
2
|
2
|
|
|
2
|
|
51128
|
use strict; |
|
|
2
|
|
|
|
|
13
|
|
|
|
2
|
|
|
|
|
45
|
|
|
3
|
2
|
|
|
2
|
|
7
|
use warnings; |
|
|
2
|
|
|
|
|
3
|
|
|
|
2
|
|
|
|
|
43
|
|
|
4
|
2
|
|
|
2
|
|
7
|
use utf8; |
|
|
2
|
|
|
|
|
3
|
|
|
|
2
|
|
|
|
|
11
|
|
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
# TODO: we need english message profile |
|
7
|
|
|
|
|
|
|
our $MESSAGES = { |
|
8
|
|
|
|
|
|
|
not_null => 'please input [_1]', |
|
9
|
|
|
|
|
|
|
int => 'please input [_1] as integer', |
|
10
|
|
|
|
|
|
|
ascii => 'Please input [_1] as ASCII', |
|
11
|
|
|
|
|
|
|
date => '[_1] is not valid date', |
|
12
|
|
|
|
|
|
|
duplication => 'Please same [_1] twice', |
|
13
|
|
|
|
|
|
|
length => '[_1] have bad length', |
|
14
|
|
|
|
|
|
|
regex => '[_1] is not good', |
|
15
|
|
|
|
|
|
|
uint => 'Please input [_1] as unsigned int', |
|
16
|
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
# http-url |
|
18
|
|
|
|
|
|
|
http_url => 'please input [_1] as url', |
|
19
|
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
# email |
|
21
|
|
|
|
|
|
|
email_loose => 'Please input [_1] as E-mail address', |
|
22
|
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
# japanese |
|
24
|
|
|
|
|
|
|
hiragana => 'Please input [_1] as Hiragana', |
|
25
|
|
|
|
|
|
|
jtel => 'Please input [_1] as telephone number', |
|
26
|
|
|
|
|
|
|
jzip => 'Please input [_1] as zip number', |
|
27
|
|
|
|
|
|
|
katakana => 'Please input [_1] as Katakana', |
|
28
|
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
# file |
|
30
|
|
|
|
|
|
|
file_size => '[_1] have bad file size', |
|
31
|
|
|
|
|
|
|
file_mime => '[_1] have bad mime type', |
|
32
|
|
|
|
|
|
|
}; |
|
33
|
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
1; |
|
35
|
|
|
|
|
|
|
__END__ |