r62343 - in /branches/upstream/libdata-phrasebook-perl/current: ./ 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:43:40 UTC 2010
Author: periapt-guest
Date: Sun Sep 5 21:43:25 2010
New Revision: 62343
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62343
Log:
[svn-upgrade] new version libdata-phrasebook-perl (0.31)
Modified:
branches/upstream/libdata-phrasebook-perl/current/Changes
branches/upstream/libdata-phrasebook-perl/current/META.json
branches/upstream/libdata-phrasebook-perl/current/META.yml
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Debug.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Generic.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Base.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Text.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Plain.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL.pm
branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL/Query.pm
Modified: branches/upstream/libdata-phrasebook-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/Changes?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/Changes (original)
+++ branches/upstream/libdata-phrasebook-perl/current/Changes Sun Sep 5 21:43:25 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: branches/upstream/libdata-phrasebook-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/META.json?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/META.json (original)
+++ branches/upstream/libdata-phrasebook-perl/current/META.json Sun Sep 5 21:43:25 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: branches/upstream/libdata-phrasebook-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/META.yml?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/META.yml (original)
+++ branches/upstream/libdata-phrasebook-perl/current/META.yml Sun Sep 5 21:43:25 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: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook.pm Sun Sep 5 21:43:25 2010
@@ -5,7 +5,7 @@
use Carp qw( croak );
use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
=head1 NAME
Modified: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Debug.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Debug.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Debug.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Debug.pm Sun Sep 5 21:43:25 2010
@@ -4,7 +4,7 @@
use Carp qw( croak );
use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
=head1 NAME
Modified: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Generic.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Generic.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Generic.pm Sun Sep 5 21:43:25 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: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader.pm Sun Sep 5 21:43:25 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: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Base.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Base.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Base.pm Sun Sep 5 21:43:25 2010
@@ -5,7 +5,7 @@
use Carp qw( croak );
use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
=head1 NAME
Modified: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Text.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Text.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Text.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Loader/Text.pm Sun Sep 5 21:43:25 2010
@@ -6,7 +6,7 @@
use IO::File;
use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
=head1 NAME
Modified: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Plain.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Plain.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Plain.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/Plain.pm Sun Sep 5 21:43:25 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: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL.pm Sun Sep 5 21:43:25 2010
@@ -7,7 +7,7 @@
use Data::Phrasebook::SQL::Query;
use vars qw($VERSION);
-$VERSION = '0.30';
+$VERSION = '0.31';
=head1 NAME
Modified: branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL/Query.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL/Query.pm?rev=62343&op=diff
==============================================================================
--- branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL/Query.pm (original)
+++ branches/upstream/libdata-phrasebook-perl/current/lib/Data/Phrasebook/SQL/Query.pm Sun Sep 5 21:43:25 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