Changeset 17342

Timestamp:

08/11/08 03:52:48 (5 years ago)

Author:

vkgtaro

Message:

String#string がなくなったので、とりあえず、つねに真を返すルールと言うことで･･････

Location:

lang/perl/FormValidator-LazyWay/trunk

Files:

• lib/FormValidator/LazyWay/Rule/Object.pm (modified) (2 diffs)
• lib/FormValidator/LazyWay/Rule/Object/JA.pm (modified) (1 diff)
• t/rule-object-true.t (added)

lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Rule/Object.pm

@@ -16 +16 @@
     die 'please set format' unless $args->{format};
     return $text =~ m/$args->{format}/ ? 1 : 0 ;
+}
+
+sub true {
+    return 1;
 }
 
@@ -37 +41 @@
     format : ^\d+$
 
+=head2 true
+
+always true!
+
 =head1 AUTHOR
 

lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay/Rule/Object/JA.pm

@@ -7 +7 @@
 sub boolean { '真又は偽' }
 sub regexp { '正規表現' }
+sub true { '真' }
 
 1;