r62345 - in /trunk/libdata-phrasebook-perl: ./ debian/ debian/patches/ lib/Data/ lib/Data/Phrasebook/ lib/Data/Phrasebook/Loader/ lib/Data/Phrasebook/SQL/

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Sun Sep 5 21:49:58 UTC 2010


Author: periapt-guest
Date: Sun Sep  5 21:48:43 2010
New Revision: 62345

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62345
Log:
New upstream release

Modified:
    trunk/libdata-phrasebook-perl/Changes
    trunk/libdata-phrasebook-perl/META.json
    trunk/libdata-phrasebook-perl/META.yml
    trunk/libdata-phrasebook-perl/debian/changelog
    trunk/libdata-phrasebook-perl/debian/patches/fix-typo
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Debug.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Generic.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Base.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Text.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Plain.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL.pm
    trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL/Query.pm

Modified: trunk/libdata-phrasebook-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/Changes?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/Changes (original)
+++ trunk/libdata-phrasebook-perl/Changes Sun Sep  5 21:48:43 2010
@@ -1,4 +1,7 @@
 # Changes log for Data::Phrasebook
+
+0.31    31/08/2010
+	- added blank_args as a parameter to delimiters().
 
 0.30    20/08/2010
 	- removed 5.006 dependency

Modified: trunk/libdata-phrasebook-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/META.json?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/META.json (original)
+++ trunk/libdata-phrasebook-perl/META.json Sun Sep  5 21:48:43 2010
@@ -1,6 +1,6 @@
 {
     "name": "Data::Phrasebook",
-    "version": "0.30",
+    "version": "0.31",
     "abstract": "A collection of modules for accessing phrasebooks from various data sources.",
     "author": ["Barbie <barbie at cpan.org>"],
 
@@ -41,39 +41,39 @@
     "provides": {
         "Data::Phrasebook": {
             "file": "lib/Data/Phrasebook.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::Debug": {
             "file": "lib/Data/Phrasebook/Debug.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::Generic": {
             "file": "lib/Data/Phrasebook/Generic.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::Loader": {
             "file": "lib/Data/Phrasebook/Loader.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::Loader::Base": {
             "file": "lib/Data/Phrasebook/Loader/Base.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::Loader::Text": {
             "file": "lib/Data/Phrasebook/Loader/Text.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::Plain": {
             "file": "lib/Data/Phrasebook/Plain.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::SQL": {
             "file": "lib/Data/Phrasebook/SQL.pm",
-            "version": "0.30"
+            "version": "0.31"
         },
         "Data::Phrasebook::SQL::Query": {
             "file": "lib/Data/Phrasebook/SQL/Query.pm",
-            "version": "0.30"
+            "version": "0.31"
         }
     },
     "no_index": {

Modified: trunk/libdata-phrasebook-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/META.yml?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/META.yml (original)
+++ trunk/libdata-phrasebook-perl/META.yml Sun Sep  5 21:48:43 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                   Data-Phrasebook
-version:                0.30
+version:                0.31
 abstract:               A collection of modules for accessing phrasebooks from various data sources.
 author:
   - Barbie <barbie at cpan.org>
@@ -24,31 +24,31 @@
 provides:
   Data::Phrasebook:
     file: lib/Data/Phrasebook.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::Debug:
     file: lib/Data/Phrasebook/Debug.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::Generic:
     file: lib/Data/Phrasebook/Generic.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::Loader:
     file: lib/Data/Phrasebook/Loader.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::Loader::Base:
     file: lib/Data/Phrasebook/Loader/Base.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::Loader::Text:
     file: lib/Data/Phrasebook/Loader/Text.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::Plain:
     file: lib/Data/Phrasebook/Plain.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::SQL:
     file: lib/Data/Phrasebook/SQL.pm
-    version: 0.30
+    version: 0.31
   Data::Phrasebook::SQL::Query:
     file: lib/Data/Phrasebook/SQL/Query.pm
-    version: 0.30
+    version: 0.31
 no_index:
   directory:
     - t

Modified: trunk/libdata-phrasebook-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/debian/changelog?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/debian/changelog (original)
+++ trunk/libdata-phrasebook-perl/debian/changelog Sun Sep  5 21:48:43 2010
@@ -1,11 +1,12 @@
-libdata-phrasebook-perl (0.30-1) UNRELEASED; urgency=low
+libdata-phrasebook-perl (0.31-1) UNRELEASED; urgency=low
 
   WAITS FOR: override file to be edited so previous version goes through.
 
   * New upstream release
   * Reviewed fix-typo patch and corrected word order
+  * New upstream release
 
- -- Nicholas Bamber <nicholas at periapt.co.uk>  Tue, 24 Aug 2010 09:34:04 +0100
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Sun, 05 Sep 2010 22:45:35 +0100
 
 libdata-phrasebook-perl (0.29-1) unstable; urgency=low
 

Modified: trunk/libdata-phrasebook-perl/debian/patches/fix-typo
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/debian/patches/fix-typo?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/debian/patches/fix-typo (original)
+++ trunk/libdata-phrasebook-perl/debian/patches/fix-typo Sun Sep  5 21:48:43 2010
@@ -1,7 +1,7 @@
 Description: Fix typographical error.
 Author: Tim Retout <diocles at debian.org>
 Reviewed-by: Nicholas Bamber <nicholas at periapt.co.uk>
-Last-Update: 2010-08-24
+Last-Update: 2010-09-05
 Bug: http://rt.cpan.org/Ticket/Display.html?id=60684
 --- a/lib/Data/Phrasebook.pm
 +++ b/lib/Data/Phrasebook.pm

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook.pm Sun Sep  5 21:48:43 2010
@@ -5,7 +5,7 @@
 use Carp qw( croak );
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Debug.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Debug.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Debug.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Debug.pm Sun Sep  5 21:48:43 2010
@@ -4,7 +4,7 @@
 use Carp qw( croak );
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Generic.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Generic.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Generic.pm Sun Sep  5 21:48:43 2010
@@ -6,7 +6,7 @@
 use Carp qw( croak );
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 
@@ -291,11 +291,20 @@
 
    $q->delimiters( qr{ \[% \s* (\w+) \s* %\] }x );
 
+In addition to the delimiter pattern, an optional setting to suppress missing
+value errors can be passed after the pattern. If set to a true value, will 
+turn any unmatched delimiter patterns to an empty string.
+
 =cut
 
 sub delimiters {
     my $self = shift;
-    return @_ ? $self->{delimiters} = shift : $self->{delimiters};
+    if(@_) {
+        $self->{delimiters} = shift;
+        $self->{blank_args} = shift || 0;
+    }
+        
+    return $self->{delimiters};
 }
 
 1;

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader.pm Sun Sep  5 21:48:43 2010
@@ -7,7 +7,7 @@
 use Module::Pluggable   search_path => ['Data::Phrasebook::Loader'];
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Base.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Base.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Base.pm Sun Sep  5 21:48:43 2010
@@ -5,7 +5,7 @@
 use Carp qw( croak );
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Text.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Text.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Text.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Loader/Text.pm Sun Sep  5 21:48:43 2010
@@ -6,7 +6,7 @@
 use IO::File;
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Plain.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Plain.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Plain.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/Plain.pm Sun Sep  5 21:48:43 2010
@@ -5,7 +5,7 @@
 use Carp qw( croak );
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 
@@ -77,8 +77,8 @@
     }
 
     $map =~ s{$delim_RE}[
-         croak "No value given for '$1'" unless defined $args->{$1};
-         $args->{$1};
+        defined $args->{$1} ? $args->{$1}   :
+        $self->{blank_args} ? ''            :  croak "No value given for '$1'";
     ]egx;
 
     return $map;

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL.pm Sun Sep  5 21:48:43 2010
@@ -7,7 +7,7 @@
 use Data::Phrasebook::SQL::Query;
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 

Modified: trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL/Query.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL/Query.pm?rev=62345&op=diff
==============================================================================
--- trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL/Query.pm (original)
+++ trunk/libdata-phrasebook-perl/lib/Data/Phrasebook/SQL/Query.pm Sun Sep  5 21:48:43 2010
@@ -6,7 +6,7 @@
 use Carp qw( croak );
 
 use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
 
 =head1 NAME
 




More information about the Pkg-perl-cvs-commits mailing list