root/lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Rule/String.pm @ 26775

Revision 26775, 0.9 kB (checked in by drry, 6 years ago)
  • 正規表現を修正しました。
    • ASCII に空白が不足していました。
    • float と ufloat で小数の有無が異なっていました。
  • ほか。
Line 
1package FormValidator::LazyWay::Rule::String;
2
3use strict;
4use warnings;
5use utf8;
6
7sub length {
8    my $text = shift;
9    my $args = shift;
10
11    die 'you must set max argument' unless exists $args->{max};
12    die 'you must set min argument' unless exists $args->{min};
13
14    return ( length $text > $args->{max} or length $text < $args->{min} ) ? 0 : 1;
15}
16
17sub stash_test {
18    my ( $text, $args, $stash ) = @_;
19
20#     # for debug
21#     use Data::Dumper;
22#
23#     warn $text;
24#     warn Dumper $args;
25#     warn Dumper $stash;
26
27    return $stash ? 1 : 0;
28}
29
30sub ascii {
31    my $text = shift;
32    return $text =~ /^[\x20-\x7E]+$/ ? 1 : 0;
33}
34
35sub alphabet {
36    my $text = shift;
37    return $text =~ /^[a-zA-Z]+$/ ? 1 : 0;
38}
39
40sub number {
41    my $text = shift;
42    return $text =~ /^[0-9]+$/ ? 1 : 0;
43}
44
451;
46
47=head1 NAME
48
49FormValidator::LazyWay::Rule::String - String Rule
50
51=head1 METHOD
52
53=head2 length
54
55=head2 stash_test
56
57=head2 ascii
58
59=head2 alphabet
60
61=head2 number
62
63=cut
64
Note: See TracBrowser for help on using the browser.