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