Changeset 12908 for lang/perl/FormValidator-LazyWay

Timestamp:

05/31/08 16:17:11 (5 years ago)

Author:

vkgtaro

Message:

message 周りは Messages に追い出してるので削除

Location:

lang/perl/FormValidator-LazyWay/trunk

Files:

• lib/FormValidator/LazyWay.pm (modified) (2 diffs)
• t/rule-string.t (modified) (1 diff)

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

@@ -30 +30 @@
 
     return $self;
-}
-# TODO load時に全部作成して持たした方がいいかなぁ。増えると重たくなるなぁ。
-# その作りにすると、オプションで、message機能を使用するか、しないか選べるとか、必要な言語を指定できるとかは最低限いるよな。
-# これ動かない。
-sub get_message {
-    my $self  = shift;
-    my $field = shift;
-
-    my $label = shift;
-    my $type  = shift || 'strict';
-    my $lang  = shift || $self->{config}{default}{language} ;
-    my $message = $self->{messages}{ $label }{ $lang } ;
-    my $args = $self->{args}{$type}{$field}{$label} || {};
-
-    foreach my $key ( keys %{ $args } ) {
-        my $regexp = '\$_\[' . $key . '\]' ;
-        my $value = $args->{$key};
-        $message =~ s/$regexp/$value/g;
-    }
-
-    return $message;
 }
 
@@ -468 +447 @@
 =head2 new
 
-=head2 get_message
-
 =head2 constraints
 

lang/perl/FormValidator-LazyWay/trunk/t/rule-string.t

@@ -14 +14 @@
 
 my $config = LoadFile( $conf_file );
-    my $dfv = FormValidator::LazyWay->new( $config );
+my $dfv = FormValidator::LazyWay->new( $config );