r2327 - in packages/libformvalidator-simple-perl/branches/upstream/current: . lib/FormValidator lib/FormValidator/Simple

[Krzysztof Krzyzaniak]

Author: eloy
Date: 2006-03-13 16:18:20 +0000 (Mon, 13 Mar 2006)
New Revision: 2327

Modified:
   packages/libformvalidator-simple-perl/branches/upstream/current/Changes
   packages/libformvalidator-simple-perl/branches/upstream/current/META.yml
   packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm
   packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm
Log:
Load /tmp/tmp.WTVGxU/libformvalidator-simple-perl-0.14 into
packages/libformvalidator-simple-perl/branches/upstream/current.


Modified: packages/libformvalidator-simple-perl/branches/upstream/current/Changes
===================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/Changes	2006-03-11 18:09:26 UTC (rev 2326)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/Changes	2006-03-13 16:18:20 UTC (rev 2327)
@@ -1,5 +1,9 @@
 Revision history for Perl extension FormValidator::Simple.
 
+0.14  Mon Mar 13 03:19:00 2006
+    - added UINT validation
+      Thanks to Tokuhirom.
+
 0.13  Thu Nov 24 00:45:00 2005
     - added set_message_format
       Thanks to Daisuke Murase.

Modified: packages/libformvalidator-simple-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/META.yml	2006-03-11 18:09:26 UTC (rev 2326)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/META.yml	2006-03-13 16:18:20 UTC (rev 2327)
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         FormValidator-Simple
-version:      0.13
+version:      0.14
 version_from: lib/FormValidator/Simple.pm
 installdirs:  site
 requires:

Modified: packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm
===================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm	2006-03-11 18:09:26 UTC (rev 2326)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm	2006-03-13 16:18:20 UTC (rev 2327)
@@ -25,6 +25,12 @@
     return $data =~ /^\-?[\d]+$/ ? TRUE : FALSE;
 }
 
+sub UINT {
+    my ($self, $params, $args) = @_;
+    my $data = $params->[0];
+    return $data =~ /^\d+$/ ? TRUE : FALSE;
+}
+
 sub ASCII {
     my ($self, $params, $args) = @_;
     my $data = $params->[0];

Modified: packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm
===================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm	2006-03-11 18:09:26 UTC (rev 2326)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm	2006-03-13 16:18:20 UTC (rev 2327)
@@ -11,7 +11,7 @@
 use FormValidator::Simple::Constants;
 use FormValidator::Simple::Messages;
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 __PACKAGE__->mk_accessors(qw/data prof results/);
 
@@ -356,6 +356,11 @@
 
 check if the data is integer or not.
 
+=item UINT
+
+unsigined integer check.
+for example, if -1234 is input, the validation judges it invalid.
+
 =item DECIMAL
 
     $q->param( 'num1' => '123.45678' );