r2777 - in
/packages/libformvalidator-simple-perl/branches/upstream/current:
Changes META.yml Makefile.PL lib/FormValidator/Simple.pm
lib/FormValidator/Simple/Validator.pm t/26_inarray.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Mon May 22 12:22:18 UTC 2006
Author: eloy
Date: Mon May 22 12:22:18 2006
New Revision: 2777
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2777
Log:
Load /tmp/tmp.nSTnf14299/libformvalidator-simple-perl-0.16 into
packages/libformvalidator-simple-perl/branches/upstream/current.
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/Makefile.PL
packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm
packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm
packages/libformvalidator-simple-perl/branches/upstream/current/t/26_inarray.t
Modified: packages/libformvalidator-simple-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/Changes?rev=2777&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/Changes (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/Changes Mon May 22 12:22:18 2006
@@ -1,4 +1,12 @@
Revision history for Perl extension FormValidator::Simple.
+
+0.16 Tue May 16 10:19:00 2006
+ - added DATETIME_FORMAT and DATETIME_STRPTIME validation
+ Thanks to Masahiro Nagano and fbis.
+
+ new sample for IN_ARRAY on POD
+ bugfix: IN_ARRAY didn't work well with numeric arguments.
+ Thanks to ISLUE
0.15 Mon Apr 24 11:51:00 2006
- added IN_ARRAY validation
Modified: packages/libformvalidator-simple-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/META.yml?rev=2777&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/META.yml (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/META.yml Mon May 22 12:22:18 2006
@@ -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.14
+version: 0.16
version_from: lib/FormValidator/Simple.pm
installdirs: site
requires:
@@ -9,13 +9,15 @@
Class::Data::Inheritable: 0.04
Class::Inspector: 1.13
Date::Calc: 5.4
+ DateTime::Format::Strptime: 1.07
Email::Valid: 0.15
Email::Valid::Loose: 0.04
List::MoreUtils: 0.16
Mail::Address: 0
+ Scalar::Util: 0
Tie::IxHash: 1.21
UNIVERSAL::require: 0.1
YAML: 0.39
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.29
+generated_by: ExtUtils::MakeMaker version 6.17
Modified: packages/libformvalidator-simple-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/Makefile.PL?rev=2777&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/Makefile.PL Mon May 22 12:22:18 2006
@@ -3,18 +3,19 @@
NAME => 'FormValidator::Simple',
VERSION_FROM => 'lib/FormValidator/Simple.pm', # finds $VERSION
PREREQ_PM => {
- 'Class::Accessor' => 0.22,
- 'Class::Inspector' => 1.13,
- 'Class::Data::Inheritable' => 0.04,
- 'UNIVERSAL::require' => 0.10,
- 'Mail::Address' => 0,
- 'Email::Valid' => 0.15,
- 'Email::Valid::Loose' => 0.04,
- 'Date::Calc' => 5.4,
- 'Tie::IxHash' => 1.21,
- 'YAML' => 0.39,
- 'List::MoreUtils' => 0.16,
- 'Scalar::Util' => 0,
+ 'Class::Accessor' => 0.22,
+ 'Class::Inspector' => 1.13,
+ 'Class::Data::Inheritable' => 0.04,
+ 'UNIVERSAL::require' => 0.10,
+ 'Mail::Address' => 0,
+ 'Email::Valid' => 0.15,
+ 'Email::Valid::Loose' => 0.04,
+ 'Date::Calc' => 5.4,
+ 'Tie::IxHash' => 1.21,
+ 'YAML' => 0.39,
+ 'List::MoreUtils' => 0.16,
+ 'Scalar::Util' => 0,
+ 'DateTime::Format::Strptime' => 1.0700,
}, # e.g., Module::Name => 1.1
);
Modified: packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm?rev=2777&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple.pm Mon May 22 12:22:18 2006
@@ -11,7 +11,7 @@
use FormValidator::Simple::Constants;
use FormValidator::Simple::Messages;
-our $VERSION = '0.15';
+our $VERSION = '0.16';
__PACKAGE__->mk_accessors(qw/data prof results/);
@@ -468,6 +468,29 @@
{ datetime => [qw/year month day hour min sec/] } => ['DATETIME']
] );
+=item DATETIME_STRPTIME
+
+check with L<DateTime::Format::Strptime>.
+
+ my $q = CGI->new;
+ $q->param( datetime => '2006-04-26T19:09:21+0900' );
+
+ my $result = FormValidator::Simple->check( $q => [
+ datetime => [ [ 'DATETIME_STRPTIME', '%Y-%m-%dT%T%z' ] ],
+ ] );
+
+=item DATETIME_FORMAT
+
+check with DateTime::Format::***. for example, L<DateTime::Format::HTTP>,
+L<DateTime::Format::Mail>, L<DateTime::Format::MySQL> and etc.
+
+ my $q = CGI->new;
+ $q->param( datetime => '2004-04-26 19:09:21' );
+
+ my $result = FormValidator::Simple->check( $q => [
+ datetime => [ [qw/DATETIME_FORMAT MySQL/] ],
+ ] );
+
=item GREATER_THAN
numeric comparison
@@ -507,6 +530,16 @@
my $result = FormValidator::Simple->check( $q => [
{ some_data => [qw/param1 param2 param3/] } => ['ANY']
] );
+
+=back
+
+=item IN_ARRAY
+
+check if the food ordered is in menu
+
+ my $result = FormValidator::Simple->check( $q => [
+ food => [ ['IN_ARRAY', qw/noodle soba spaghetti/] ],
+ ] };
=back
Modified: packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm?rev=2777&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/lib/FormValidator/Simple/Validator.pm Mon May 22 12:22:18 2006
@@ -9,6 +9,7 @@
use Date::Calc;
use UNIVERSAL::require;
use List::MoreUtils;
+use DateTime::Format::Strptime;
__PACKAGE__->mk_classdata( options => { } );
@@ -310,8 +311,63 @@
sub IN_ARRAY {
my ($class, $params, $args) = @_;
- my $data = $params->[0] || '';
+ my $data = defined $params->[0] ? $params->[0] : '';
return (List::MoreUtils::any { $_ eq $data } @$args) ? TRUE : FALSE;
+}
+
+sub DATETIME_FORMAT {
+ my ( $self, $params, $args ) = @_;
+ my $date = $params->[0];
+ my $format = $args->[0];
+ FormValidator::Simple::Exception->throw(
+ qq/Validation DATETIME_FORMAT needs a format argument./)
+ unless $format;
+
+ my $module;
+ if ( ref $format ) {
+ $module = $format;
+ }
+ else {
+ $module = "DateTime::Format::$format";
+ $module->require
+ or FormValidator::Simple::Exception->throw(
+ qq/Validation DATETIME_FORMAT: failed to require $module. "$@"/ );
+ }
+ my $dt;
+ eval {
+ $dt = $module->parse_datetime($date);
+ };
+ my $result = $dt ? TRUE : FALSE;
+
+ if ( $dt && $self->options->{time_zone} ) {
+ $dt->set_time_zone( $self->options->{time_zone} );
+ }
+ return ($result, $dt);
+}
+
+sub DATETIME_STRPTIME {
+ my ( $self, $params, $args ) = @_;
+ my $date = $params->[0];
+ my $format = $args->[0];
+ FormValidator::Simple::Exception->throw(
+ qq/Validation DATETIME_STRPTIME needs a format argument./)
+ unless $format;
+
+ my $dt;
+ eval{
+ my $strp = DateTime::Format::Strptime->new(
+ pattern => $format,
+ on_error => 'croak'
+ );
+ $dt = $strp->parse_datetime($date);
+ };
+
+ my $result = $dt ? TRUE : FALSE;
+
+ if ( $dt && $self->options->{time_zone} ) {
+ $dt->set_time_zone( $self->options->{time_zone} );
+ }
+ return ($result, $dt);
}
1;
Modified: packages/libformvalidator-simple-perl/branches/upstream/current/t/26_inarray.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libformvalidator-simple-perl/branches/upstream/current/t/26_inarray.t?rev=2777&op=diff
==============================================================================
--- packages/libformvalidator-simple-perl/branches/upstream/current/t/26_inarray.t (original)
+++ packages/libformvalidator-simple-perl/branches/upstream/current/t/26_inarray.t Mon May 22 12:22:18 2006
@@ -1,5 +1,5 @@
use strict;
-use Test::More tests => 3;
+use Test::More tests => 4;
BEGIN{ use_ok("FormValidator::Simple") }
@@ -8,11 +8,14 @@
my $q = CGI->new;
$q->param( foo => 'foo' );
$q->param( bar => 'bar' );
+$q->param( buz => 0 );
my $r = FormValidator::Simple->check( $q => [
foo => [ [qw/IN_ARRAY foo bar buz/] ],
bar => [ [qw/IN_ARRAY foo buz/] ],
+ buz => [ [qw/IN_ARRAY 0 1/] ],
] );
ok(!$r->invalid('foo'));
ok($r->invalid('bar'));
+ok(!$r->invalid('buz'));
More information about the Pkg-perl-cvs-commits
mailing list