Changeset 9629

Timestamp:

04/17/08 21:21:26 (4 years ago)

Author:

lyokato

Message:

lang/perl/OAuth-Lite: Checking in changes prior to tagging of version 0.23. Changelog diff is:

Index: Changes
===================================================================
--- Changes (リビジョン 9628)
+++ Changes (作業コピー)
@@ -1,5 +1,9 @@

Revision history for Perl extension FormValidator::Simple.

+0.23 Thr Apr 17 21:17:00 2008
+ - Applied a patch which lets FVS loads plugin easily with +, like Catalyst.
+ Thanks to Jiro Nishiguchi.
+

0.22 Tue Mar 6 20:07:00 2007

• Applied a patch that lets it work as expected in case *set_messages* is invoked after *check*.
  Thanks to Yappo.
  

Location:

lang/perl/FormValidator-Simple/trunk

Files:

• .shipit (added)
• Changes (modified) (1 diff)
• MANIFEST (modified) (2 diffs)
• MANIFEST.SKIP (added)
• inc (deleted)
• lib/FormValidator/Simple.pm (modified) (3 diffs)
• t/16_plugin.t (modified) (4 diffs)
• t/lib/MyNamespace (added)
• t/lib/MyNamespace/MyPlugin.pm (added)

lang/perl/FormValidator-Simple/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension FormValidator::Simple.
+
+0.23  Thr Apr 17 21:17:00 2008
+    - Applied a patch which lets FVS loads plugin easily with +, like Catalyst.
+      Thanks to Jiro Nishiguchi.
 
 0.22  Tue Mar 6 20:07:00 2007

lang/perl/FormValidator-Simple/trunk/MANIFEST

@@ -26 +26 @@
 Makefile.PL
 MANIFEST
+MANIFEST.SKIP
 META.yml
 README
@@ -60 +61 @@
 t/conf/messages_ja.yml
 t/lib/FormValidator/Simple/Plugin/Sample.pm
+t/lib/MyNamespace/MyPlugin.pm

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

@@ -13 +13 @@
 use FormValidator::Simple::Messages;
 
-our $VERSION = '0.22';
+our $VERSION = '0.23';
 
 __PACKAGE__->mk_classaccessors(qw/data prof results/);
@@ -21 +21 @@
     my $class = shift;
     foreach my $plugin (@_) {
-        my $plugin_class = "FormValidator::Simple::Plugin::".$plugin;
+        my $plugin_class;
+        if ($plugin =~ /^\+(.*)/) {
+            $plugin_class = $1;
+        } else {
+            $plugin_class = "FormValidator::Simple::Plugin::$plugin";
+        }
         $class->load_plugin($plugin_class);
     }
@@ -566 +571 @@
     use FormValidator::Simple;
     FormValidator::Simple->load_plugin('FormValidator::Simple::Plugin::CreditCard');
+
+If you want to load plugin which name isn't in FormValidator::Simple::Plugin namespace, use +.
+
+    use FormValidator::Simple qw/+MyApp::ValidatorPlugin/;
 
 =head1 MESSAGE HANDLING

lang/perl/FormValidator-Simple/trunk/t/16_plugin.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 3;
+use Test::More tests => 5;
 use CGI;
 
@@ -7 +7 @@
 BEGIN { require_ok("FormValidator::Simple") } 
 
-FormValidator::Simple->import('Sample');
+FormValidator::Simple->import(qw/Sample +MyNamespace::MyPlugin/);
 
 my $q = CGI->new;
@@ -13 +13 @@
 $q->param( sample2 => 'sample'   );
 
+$q->param( myplugin1 => 'hogehoge' );
+$q->param( myplugin2 => 'myplugin' );
+
 my $r = FormValidator::Simple->check( $q => [
-    sample1 => [qw/SAMPLE/],
-    sample2 => [qw/SAMPLE/],
+    sample1   => [qw/SAMPLE/],
+    sample2   => [qw/SAMPLE/],
+    myplugin1 => [qw/MYPLUGIN/],
+    myplugin2 => [qw/MYPLUGIN/],
 ] );
 
@@ -21 +26 @@
 ok(!$r->invalid('sample2'));
 
+ok($r->invalid('myplugin1'));
+ok(!$r->invalid('myplugin2'));