line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package FormValidator::Lite::Messages::en; |
2
|
2
|
|
|
2
|
|
17542
|
use strict; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
90
|
|
3
|
2
|
|
|
2
|
|
10
|
use warnings; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
60
|
|
4
|
2
|
|
|
2
|
|
9
|
use utf8; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
19
|
|
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__ |