Changeset 10583 for lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay.pm

Timestamp:

04/27/08 19:00:46 (5 years ago)

Author:

vkgtaro

Message:

no strict の範囲を少し縮めた

Files:

• lang/perl/FormValidator-LazyWay/trunk/lib/FormValidator/LazyWay.pm (modified) (4 diffs)

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

@@ -121 +121 @@
     my $messages = {};
 
-    no strict;
     for my $rule ( @{$rules} ) {
         my $module = $rule;
@@ -129 +128 @@
 
         my $module_entries = $module . '::';
+
+        no strict 'refs';
     INTERNAL_LOOP:
         foreach my $symbol ( keys %{$module_entries} ) {
@@ -139 +140 @@
             }
         }
-    }
-    use strict;
+        use strict;
+    }
 
     return $messages;
@@ -224 +225 @@
 =head2 constraints
 
+=head1 INTERNALS
+
+=head2 _get_messages
+
+config->{rules} で指定した Rules にある mes_* の戻り値を
+'RuleName::method' キーの値に入れたハッシュを返します。
+
 =head1 AUTHOR