r31180 - in /branches/upstream/librose-db-perl/current: ./ lib/Rose/ lib/Rose/DB/ lib/Rose/DB/Cache/ lib/Rose/DB/Registry/ t/

rmayorga at users.alioth.debian.org rmayorga at users.alioth.debian.org
Sat Feb 28 01:21:16 UTC 2009


Author: rmayorga
Date: Sat Feb 28 01:21:13 2009
New Revision: 31180

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31180
Log:
[svn-upgrade] Integrating new upstream version, librose-db-perl (0.750)

Modified:
    branches/upstream/librose-db-perl/current/Changes
    branches/upstream/librose-db-perl/current/META.yml
    branches/upstream/librose-db-perl/current/lib/Rose/DB.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache/Entry.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Constants.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Generic.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Informix.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/MySQL.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Pg.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry/Entry.pm
    branches/upstream/librose-db-perl/current/lib/Rose/DB/SQLite.pm
    branches/upstream/librose-db-perl/current/t/pg.t
    branches/upstream/librose-db-perl/current/t/subclass-pg.t

Modified: branches/upstream/librose-db-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/Changes?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/Changes (original)
+++ branches/upstream/librose-db-perl/current/Changes Sat Feb 28 01:21:13 2009
@@ -1,3 +1,7 @@
+0.750 (02.26.2009) - Peter Karman <perl at peknet.com>
+
+    * Added pg_enable_utf8 attribute.
+
 0.749 (12.12.2008) - John Siracusa <siracusa at gmail.com>
 
     * Added support for many more registry entry attributes.

Modified: branches/upstream/librose-db-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/META.yml?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/META.yml (original)
+++ branches/upstream/librose-db-perl/current/META.yml Sat Feb 28 01:21:13 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Rose-DB
-version:            0.749
+version:            0.750
 abstract:           ~
 author:  []
 license:            perl

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB.pm Sat Feb 28 01:21:13 2009
@@ -20,7 +20,7 @@
 
 our $Error;
 
-our $VERSION = '0.749';
+our $VERSION = '0.750';
 
 our $Debug = 0;
 
@@ -3454,6 +3454,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache.pm Sat Feb 28 01:21:13 2009
@@ -499,6 +499,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache/Entry.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache/Entry.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Cache/Entry.pm Sat Feb 28 01:21:13 2009
@@ -96,6 +96,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Constants.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Constants.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Constants.pm Sat Feb 28 01:21:13 2009
@@ -41,6 +41,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Generic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Generic.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Generic.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Generic.pm Sat Feb 28 01:21:13 2009
@@ -75,6 +75,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Informix.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Informix.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Informix.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Informix.pm Sat Feb 28 01:21:13 2009
@@ -1072,6 +1072,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/MySQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/MySQL.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/MySQL.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/MySQL.pm Sat Feb 28 01:21:13 2009
@@ -761,6 +761,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Pg.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Pg.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Pg.pm Sat Feb 28 01:21:13 2009
@@ -55,6 +55,8 @@
 sub supports_multi_column_count_distinct  { 0 }
 sub supports_arbitrary_defaults_on_insert { 1 }
 sub supports_select_from_subselect        { 1 }
+
+sub pg_enable_utf8 { shift->dbh_attribute_boolean('pg_enable_utf8', @_) }
 
 sub supports_schema { 1 }
 
@@ -573,6 +575,14 @@
 
 See the L<DateTime::TimeZone> documentation for acceptable values of TZ.
 
+=item B<pg_enable_utf8 [BOOL]>
+
+Get or set the L<pg_enable_utf8|DBD::Pg/pg_enable_utf8> database handle attribute.  This is set directly on the L<dbh|Rose::DB/dbh>, if one exists.  Otherwise, it will be set when the L<dbh|Rose::DB/dbh> is created.  If no value for this attribute is defined (the default) then it will not be set when the L<dbh|Rose::DB/dbh> is created, deferring instead to whatever default value L<DBD::Pg> chooses.
+
+Returns the value of this attribute in the L<dbh|Rose::DB/dbh>, if one exists, or the value that will be set when the L<dbh|Rose::DB/dbh> is next created.
+
+See the L<DBD::Pg|DBD::Pg/pg_enable_utf8> documentation to learn more about this attribute.
+
 =back
 
 =head2 Value Parsing and Formatting
@@ -656,6 +666,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry.pm Sat Feb 28 01:21:13 2009
@@ -343,6 +343,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry/Entry.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry/Entry.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/Registry/Entry.pm Sat Feb 28 01:21:13 2009
@@ -44,7 +44,8 @@
 
     # Pg
     european_dates     => { type => 'boolean', method_spec => { default => 0 } },
-
+    pg_enable_utf8     => { type => 'boolean' },
+    
     # SQLite
     auto_create => { type => 'boolean', method_spec => { default => 1 } },
 
@@ -520,6 +521,14 @@
 
 This value will be passed to L<DateTime::Format::Pg> as the value of the C<european> parameter in the call to the constructor C<new()>.  This L<DateTime::Format::Pg> object is used by L<Rose::DB::Pg> to parse and format date-related column values in methods like L<parse_date|Rose::DB/parse_date>, L<format_date|Rose::DB/format_date>, etc.
 
+=item B<pg_enable_utf8 [BOOL]>
+
+Get or set the L<pg_enable_utf8|DBD::Pg/pg_enable_utf8> database handle attribute.  This is set directly on the L<dbh|Rose::DB/dbh>, if one exists.  Otherwise, it will be set when the L<dbh|Rose::DB/dbh> is created.  If no value for this attribute is defined (the default) then it will not be set when the L<dbh|Rose::DB/dbh> is created, deferring instead to whatever default value L<DBD::Pg> chooses.
+
+Returns the value of this attribute in the L<dbh|Rose::DB/dbh>, if one exists, or the value that will be set when the L<dbh|Rose::DB/dbh> is next created.
+
+See the L<DBD::Pg|DBD::Pg/pg_enable_utf8> documentation to learn more about this attribute.
+
 =back
 
 =head3 SQLite
@@ -542,6 +551,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB/SQLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB/SQLite.pm?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB/SQLite.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB/SQLite.pm Sat Feb 28 01:21:13 2009
@@ -618,6 +618,6 @@
 
 =head1 LICENSE
 
-Copyright (c) 2008 by John C. Siracusa.  All rights reserved.  This program is
+Copyright (c) 2009 by John C. Siracusa.  All rights reserved.  This program is
 free software; you can redistribute it and/or modify it under the same terms
 as Perl itself.

Modified: branches/upstream/librose-db-perl/current/t/pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/t/pg.t?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/t/pg.t (original)
+++ branches/upstream/librose-db-perl/current/t/pg.t Sat Feb 28 01:21:13 2009
@@ -15,7 +15,7 @@
   }
   else
   {
-    Test::More->import(tests => 232);
+    Test::More->import(tests => 234);
   }
 }
 
@@ -34,7 +34,7 @@
 
 SKIP:
 {
-  skip("Could not connect to db - $@", 9)  unless(have_db('pg'));
+  skip("Could not connect to db - $@", 11)  unless(have_db('pg'));
 
   my $dbh = $db->dbh;
 
@@ -50,6 +50,12 @@
   { 
     is($db2->$field(), $db->$field(), "$field()");
   }
+
+  ok(!$db->pg_enable_utf8, 'pg_enable_utf8 false');
+  
+  $db->pg_enable_utf8(1);
+  
+  ok($db->pg_enable_utf8 && $db->dbh->{'pg_enable_utf8'}, 'pg_enable_utf8 true');
 
   $db->disconnect;
   $db2->disconnect;

Modified: branches/upstream/librose-db-perl/current/t/subclass-pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/t/subclass-pg.t?rev=31180&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/t/subclass-pg.t (original)
+++ branches/upstream/librose-db-perl/current/t/subclass-pg.t Sat Feb 28 01:21:13 2009
@@ -15,7 +15,7 @@
   }
   else
   {
-    Test::More->import(tests => 232);
+    Test::More->import(tests => 234);
   }
 }
 
@@ -34,7 +34,7 @@
 
 SKIP:
 {
-  skip("Could not connect to db - $@", 9)  unless(have_db('pg'));
+  skip("Could not connect to db - $@", 11)  unless(have_db('pg'));
 
   my $dbh = $db->dbh;
 
@@ -50,6 +50,12 @@
   { 
     is($db2->$field(), $db->$field(), "$field()");
   }
+
+  ok(!$db->pg_enable_utf8, 'pg_enable_utf8 false');
+  
+  $db->pg_enable_utf8(1);
+  
+  ok($db->pg_enable_utf8 && $db->dbh->{'pg_enable_utf8'}, 'pg_enable_utf8 true');
 
   $db->disconnect;
   $db2->disconnect;




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