Changeset 10229

Timestamp:

04/24/08 02:13:49 (5 years ago)

Author:

vkgtaro

Message:

ascii ルール追加

Location:

lang/perl/FormValidator-LazyWay/trunk

Files:

• conf/string.conf (added)
• lib/FormValidator/LazyWay/Rules/String.pm (modified) (2 diffs)
• t/rule-string.t (added)

lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Rules/String.pm

@@ -33 +33 @@
 }
 
+sub dfv_ascii {
+    my $text = shift;
+    return $text =~ /^\w+$/ ? 1 : 0;
+}
+
+sub mes_ascii {
+    {
+        ja => '英数字とアンダーバー(_)',
+    }
+}
+
 1;
 
@@ -51 +62 @@
 =head2 mes_string
 
+=head2 dfv_ascii
+
+=head2 mes_ascii
+
 =cut