Show
Ignore:
Timestamp:
05/31/08 16:17:11 (7 years ago)
Author:
vkgtaro
Message:

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

Location:
lang/perl/FormValidator-LazyWay/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay.pm

    r11384 r12908  
    3030 
    3131    return $self; 
    32 } 
    33 # TODO load時に全部作成して持たした方がいいかなぁ。増えると重たくなるなぁ。 
    34 # その作りにすると、オプションで、message機能を使用するか、しないか選べるとか、必要な言語を指定できるとかは最低限いるよな。 
    35 # これ動かない。 
    36 sub get_message { 
    37     my $self  = shift; 
    38     my $field = shift; 
    39  
    40     my $label = shift; 
    41     my $type  = shift || 'strict'; 
    42     my $lang  = shift || $self->{config}{default}{language} ; 
    43     my $message = $self->{messages}{ $label }{ $lang } ; 
    44     my $args = $self->{args}{$type}{$field}{$label} || {}; 
    45  
    46     foreach my $key ( keys %{ $args } ) { 
    47         my $regexp = '\$_\[' . $key . '\]' ; 
    48         my $value = $args->{$key}; 
    49         $message =~ s/$regexp/$value/g; 
    50     } 
    51  
    52     return $message; 
    5332} 
    5433 
     
    468447=head2 new 
    469448 
    470 =head2 get_message 
    471  
    472449=head2 constraints 
    473450 
  • lang/perl/FormValidator-LazyWay/trunk/t/rule-string.t

    r10229 r12908  
    1414 
    1515my $config = LoadFile( $conf_file ); 
    16     my $dfv = FormValidator::LazyWay->new( $config ); 
     16my $dfv = FormValidator::LazyWay->new( $config ); 
    1717 
    1818