Changeset 8953 for lang/perl/Sledge-Plugin-FormValidator-Lazy

Timestamp:

04/06/08 09:02:15 (5 years ago)

Author:

drry

Message:

lang/ruby/path_observer/trunk/lib/path_observer/observe_manager.rb
lang/ruby/path_observer/trunk/lib/path_observer/observer.rb
lang/ruby/path_observer/trunk/README
lang/ruby/date_time-duration/lib/date_time/duration.rb
lang/ruby/osxhotkey/README
lang/lua/bluasxom/lib/List.lua
lang/perl/Catalyst-Controller-AllowDisable?/trunk/lib/Catalyst/Controller/AllowDisable.pm
lang/perl/Catalyst-Controller-AllowDisable?/trunk/Makefile.PL
lang/perl/Catalyst-Controller-AllowDisable?/trunk/README
lang/perl/Catalyst-Helper-Lighty/trunk/LISENCE
lang/perl/Catalyst-Helper-Lighty/trunk/LICENSE
lang/perl/Catalyst-Helper-Lighty/trunk/MANIFEST
lang/perl/Catalyst-Plugin-FormValidator?-Lazy/trunk/lib/Catalyst/Plugin/FormValidator/Lazy.pm
lang/perl/Catalyst-Plugin-Log-Colorful/trunk/lib/Catalyst/Plugin/Log/Colorful.pm
lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm
lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Response.pm
lang/perl/misc/bot-kouen-debyu.pl
lang/perl/misc/google_code_search.pl
lang/perl/misc/hatena-keyword.pl
lang/perl/Sledge-Plugin-FormValidator?-Lazy/trunk/lib/Sledge/Plugin/FormValidator/Lazy.pm
lang/perl/Net-OAuth-Consumer/trunk/lib/Net/OAuth/Consumer.pm
lang/perl/Net-Twitter-FriendFinder?/trunk/lib/Net/Twitter/FriendFinder/From/TwitterKensaku.pm
lang/perl/Net-Twitter-FriendFinder?/trunk/lib/Net/Twitter/FriendFinder/From/TwitterDiff.pm
lang/perl/Net-Twitter-FriendFinder?/trunk/lib/Net/Twitter/FriendFinder/From/Google.pm
lang/perl/Net-Twitter-FriendFinder?/trunk/lib/Net/Twitter/FriendFinder/From/Twitter.pm
lang/perl/Net-Twitter-FriendFinder?/trunk/lib/Net/Twitter/FriendFinder/From/URL.pm
lang/perl/Net-Twitter-FriendFinder?/trunk/lib/Net/Twitter/FriendFinder.pm
lang/perl/Data-LazyACL/trunk/lib/Data/LazyACL.pm
lang/perl/Data-LazyACL/trunk/README
lang/perl/Iterator-Simple/trunk/lib/Iterator/Simple.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/Media/Information.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/Search/User.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/Search/Media.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/Base.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/User/Video.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/User/Profile.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/User/Audio.pm
lang/perl/WWW-Stickam-API/trunk/lib/WWW/Stickam/API/User/Image.pm
lang/perl/Bundle-Porn/trunk/lib/Bundle/Porn.pm
lang/perl/Bundle-Porn/trunk/Makefile.PL
lang/perl/App-Starter/trunk/lib/App/Starter.pm
lang/perl/App-Starter/trunk/bin/app-starter.pl
lang/perl/App-Starter/trunk/bin/app-starter-catalyst.pl
lang/perl/Chaostr/trunk/lib/Chaostr/ValidateEm/Plugin/String.pm
lang/perl/Chaostr/trunk/lib/Catalyst/Plugin/FormValidateEm.pm
lang/perl/Chaostr/trunk/extlib
lang/perl/Acme-PSON/trunk/lib/Acme/PSON.pm
lang/perl/Acme-DRYCopyPaste/trunk/lib/Acme/DRYCopyPaste.pm
lang/perl/OAuth-Lite/trunk/lib/OAuth/Lite/Util.pm
lang/perl/MozRepl/trunk/lib/MozRepl/Plugin/JSON.pm
lang/perl/FormValidator-LazyWay?/trunk/lib/FormValidator/LazyWay/Plugin.pm
lang/perl/FormValidator-LazyWay?/trunk/lib/FormValidator/LazyWay/Results.pm
lang/perl/FormValidator-LazyWay?/trunk/lib/FormValidator/LazyWay.pm:

• SYNOPSIS
  

Files:

• lang/perl/Sledge-Plugin-FormValidator-Lazy/trunk/lib/Sledge/Plugin/FormValidator/Lazy.pm (modified) (6 diffs)

lang/perl/Sledge-Plugin-FormValidator-Lazy/trunk/lib/Sledge/Plugin/FormValidator/Lazy.pm

@@ -19 +19 @@
             $self->{dfv_stash} = {};
             my $config = $self->create_config->form_validator_lazy;
-            my $method_pkg = $config->{method_pkg}; 
+            my $method_pkg = $config->{method_pkg};
             $method_pkg->require or die $@;
             $CONSTRAINTS->{_strict}
@@ -113 +113 @@
         }
     }
-    
+
     return $self->{form};
 
@@ -126 +126 @@
              my $value = $data->{ $key } ;
              if( ref $value eq 'ARRAY' ) {
-                my $method = $value->[0]; 
+                my $method = $value->[0];
                 my @args = @{ $value };
                 shift @args;
                 my $sub =  $pkg . '::' . 'static' .  '_' .  $method  ;
-                $constraints->{ qr/$key/ } 
-                    = sub { 
-                        my $item = shift ; 
+                $constraints->{ qr/$key/ }
+                    = sub {
+                        my $item = shift ;
                         no strict;
-                        my $result =  $sub->( $item  ,@args );
+                        my $result =  $sub->( $item , @args );
                         return $result;
                       }
@@ -165 +165 @@
         }
         elsif ( ref $value eq 'ARRAY' ) {
-            my $method = $value->[0]; 
+            my $method = $value->[0];
             my @args = @{ $value };
             shift @args;
             my $sub =  $pkg . '::' . 'static' .  '_' .  $method  ;
-            $constraints->{ $key } 
-                = sub { 
-                    my $item = shift ; 
+            $constraints->{ $key }
+                = sub {
+                    my $item = shift ;
                     no strict;
-                    my $result =  $sub->( $item  ,@args );
+                    my $result =  $sub->( $item , @args );
                     return $result;
                   }
@@ -191 +191 @@
 Sledge::Plugin::FormValidator::Lazy - use Data::FormValidator in lazy way
 
-=head1 SYNOPSYS
+=head1 SYNOPSIS
 
  package Your::Pages;
- 
+
  use Sledge::Plugin::FormValidator::Lazy;
- 
+
  ;
 
 conf.yaml
- 
+
  form_validator_lazy :
     method_pkg : Your::Constraints
@@ -224 +224 @@
     my $v = $self->form->valid;
 
-    my $user_id = $v->{user_id} ; 
+    my $user_id = $v->{user_id} ;
  }
 
 =head1 DESCRIPTION
 
-This is still under develop, so be aware .
+This is still under develop, so be aware.
 
 Implement Data::FormValidator in lazy way like L<Catalyst::Plugin::FormValidator::Lazy>