r2129 - in
packages/libdata-formvalidator-perl/branches/upstream/current:
. lib/Data lib/Data/FormValidator t
Niko Tyni
ntyni-guest at costa.debian.org
Mon Feb 13 20:14:47 UTC 2006
Author: ntyni-guest
Date: 2006-02-13 20:14:45 +0000 (Mon, 13 Feb 2006)
New Revision: 2129
Added:
packages/libdata-formvalidator-perl/branches/upstream/current/t/tt_and_overload.t
Modified:
packages/libdata-formvalidator-perl/branches/upstream/current/Changes
packages/libdata-formvalidator-perl/branches/upstream/current/MANIFEST
packages/libdata-formvalidator-perl/branches/upstream/current/META.yml
packages/libdata-formvalidator-perl/branches/upstream/current/README
packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator.pm
packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator/Results.pm
Log:
Load /tmp/tmp.HKiznt/libdata-formvalidator-perl-4.13 into
packages/libdata-formvalidator-perl/branches/upstream/current.
Modified: packages/libdata-formvalidator-perl/branches/upstream/current/Changes
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/Changes 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/Changes 2006-02-13 20:14:45 UTC (rev 2129)
@@ -1,4 +1,8 @@
+4.13
+ [BUG FIXES]
+ - Updated overloading syntax to work with Template::Stash (frank)
+
4.12 Thu Jan 5 21:07:50 EST 2006
[INTERNALS]
- Fix test suite to pass when CGI::Simple is not installed
Modified: packages/libdata-formvalidator-perl/branches/upstream/current/MANIFEST
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/MANIFEST 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/MANIFEST 2006-02-13 20:14:45 UTC (rev 2129)
@@ -62,6 +62,7 @@
t/regexp_common_closure.t
t/results_success.t
t/simple.t
+t/tt_and_overload.t
t/undefined_arrayref.t
t/unknown.t
t/untaint.pl
Modified: packages/libdata-formvalidator-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/META.yml 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/META.yml 2006-02-13 20:14:45 UTC (rev 2129)
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Data-FormValidator
-version: 4.12
+version: 4.13
author:
- Mark Stosberg <mark at summersault.com>
abstract: |-
@@ -18,7 +18,7 @@
provides:
Data::FormValidator:
file: lib/Data/FormValidator.pm
- version: 4.12
+ version: 4.13
Data::FormValidator::Constraints:
file: lib/Data/FormValidator/Constraints.pm
version: 4.02
@@ -27,7 +27,7 @@
version: 1.01
Data::FormValidator::Constraints::RegexpCommon:
file: lib/Data/FormValidator/Results.pm
- version: 4.1
+ version: 4.13
Data::FormValidator::Constraints::Upload:
file: lib/Data/FormValidator/Constraints/Upload.pm
version: 1.1
@@ -39,5 +39,5 @@
version: 4
Data::FormValidator::Results:
file: lib/Data/FormValidator/Results.pm
- version: 4.1
+ version: 4.13
generated_by: Module::Build version 0.2611
Modified: packages/libdata-formvalidator-perl/branches/upstream/current/README
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/README 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/README 2006-02-13 20:14:45 UTC (rev 2129)
@@ -92,7 +92,7 @@
my $dfv = Data::FormValidator->new({
profile_1 => { # usual profile definition here },
- profile_1 => { # another profile definition },
+ profile_2 => { # another profile definition },
});
As illustrated, multiple profiles are defined through a hash ref
Modified: packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator/Results.pm
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator/Results.pm 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator/Results.pm 2006-02-13 20:14:45 UTC (rev 2129)
@@ -21,9 +21,10 @@
use Data::FormValidator::Constraints (qw/:validators :matchers/);
use vars qw/$AUTOLOAD $VERSION/;
use overload
- 'bool' => \&_bool_overload_based_on_success;
+ 'bool' => \&_bool_overload_based_on_success,
+ fallback => 1;
-$VERSION = 4.10;
+$VERSION = 4.13;
=pod
Modified: packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator.pm
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator.pm 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/lib/Data/FormValidator.pm 2006-02-13 20:14:45 UTC (rev 2129)
@@ -31,7 +31,7 @@
use vars qw( $VERSION $AUTOLOAD @ISA @EXPORT_OK %EXPORT_TAGS );
-$VERSION = '4.12';
+$VERSION = '4.13';
require Exporter;
@ISA = qw(Exporter);
@@ -239,7 +239,7 @@
my $dfv = Data::FormValidator->new({
profile_1 => { # usual profile definition here },
- profile_1 => { # another profile definition },
+ profile_2 => { # another profile definition },
});
Added: packages/libdata-formvalidator-perl/branches/upstream/current/t/tt_and_overload.t
===================================================================
--- packages/libdata-formvalidator-perl/branches/upstream/current/t/tt_and_overload.t 2006-02-13 19:02:49 UTC (rev 2128)
+++ packages/libdata-formvalidator-perl/branches/upstream/current/t/tt_and_overload.t 2006-02-13 20:14:45 UTC (rev 2129)
@@ -0,0 +1,15 @@
+use Test::More;
+use Data::FormValidator;
+
+eval { require Template; require Template::Stash; };
+plan skip_all => 'Template Toolkit required' if $@;
+plan tests => 1;
+
+my $results = Data::FormValidator->check( {}, {required => 1} );
+
+my $tt = Template->new( STASH => Template::Stash->new );
+
+$tt->process( \'[% form.missing %]', {form => $results}, \my $out );
+
+ok(not $tt->error);
+
More information about the Pkg-perl-cvs-commits
mailing list