Changeset 10761 for lang/perl/FormValidator-LazyWay

Timestamp:

04/30/08 01:04:07 (5 years ago)

Author:

vkgtaro

Message:

• Messages クラスに分けるだけ分けた。
  
  • _conv_messages はそっちに持って行く必要があると思う。
    
• Test::Spelling >_<
  

Location:

lang/perl/FormValidator-LazyWay/trunk

Files:

• lib/FormValidator/LazyWay.pm (modified) (4 diffs)
• lib/FormValidator/LazyWay/Messages.pm (added)
• t/spelling.t (modified) (1 diff)

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

@@ -8 +8 @@
 use Perl6::Junction qw/any none/;
 use FormValidator::LazyWay::Rules;
+use FormValidator::LazyWay::Messages;
 use FormValidator::LazyWay::Results;
 
@@ -20 +21 @@
     $self->{config} = $config;
     bless $self, $class;
-    $self->_module_loader();
-    my $messages = $self->_get_messages();
-    $self->{messages}               = $messages;
+
+    $self->{messages} = FormValidator::LazyWay::Messages->new($self->{config});
+
     foreach my $key ( keys %{$self->config->{constraints}} ) {
         $self->{constraints}->{$key} = $self->_make_constraints($key);
@@ -106 +107 @@
 }
 
-sub _module_loader {
-    my $self    = shift;
-    my $rules = $self->config->{rules};
-
-    for my $rule ( @{$rules} ) {
-        my $module = $rule;
-        unless ( $module =~ s/^\+// ) {
-            $module = __PACKAGE__ . '::Rules::' . $module;
-        }
-
-        $module->require or die $@;
-    }
-
-}
-
-sub _get_messages {
-    my $self     = shift;
-    my $rules  = $self->config->{rules};
-    my $messages = {};
-
-    for my $rule ( @{$rules} ) {
-        my $module = $rule;
-        unless ( $module =~ s/^\+// ) {
-            $module = __PACKAGE__ . '::Rules::' . $module;
-        }
-
-        my $module_entries = $module . '::';
-
-        no strict 'refs';
-    INTERNAL_LOOP:
-        foreach my $symbol ( keys %{$module_entries} ) {
-            next INTERNAL_LOOP unless $symbol =~ /^mes_/;
-            local *glob = $module_entries->{$symbol};
-            if ( defined &glob ) {
-                my $method = $symbol;
-                $method =~ s/^mes_//;
-                $messages->{ $rule . '::' . $method } = &glob;
-            }
-        }
-        use strict;
-    }
-
-    return $messages;
-
-}
-
 sub _make_constraints {
     my $self        = shift;
@@ -213 +168 @@
     my $type     = shift;
     my $lang     = shift;
-    my $message  = $config->{messages}{$lang}{invalid}{$label} ||  $messages->{$label}{$lang};
+    my $message  = $config->{messages}{$lang}{invalid}{$label} ||  $messages->get($label, $lang);
     my $args     = $arg->{$type}{$field}{$label} || {};
 

lang/perl/FormValidator-LazyWay/trunk/t/spelling.t

@@ -21 +21 @@
 Validator
 validator
-
+TODO
+lang