r37411 - in /trunk/libmqdb-perl: Changes README debian/changelog debian/copyright lib/MQdb.pm lib/MQdb/DBObject.pm lib/MQdb/DBStream.pm lib/MQdb/Database.pm lib/MQdb/MappedQuery.pm

plessy at users.alioth.debian.org plessy at users.alioth.debian.org
Thu Jun 4 07:26:06 UTC 2009


Author: plessy
Date: Thu Jun  4 07:26:02 2009
New Revision: 37411

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

Modified:
    trunk/libmqdb-perl/Changes
    trunk/libmqdb-perl/README
    trunk/libmqdb-perl/debian/changelog
    trunk/libmqdb-perl/debian/copyright
    trunk/libmqdb-perl/lib/MQdb.pm
    trunk/libmqdb-perl/lib/MQdb/DBObject.pm
    trunk/libmqdb-perl/lib/MQdb/DBStream.pm
    trunk/libmqdb-perl/lib/MQdb/Database.pm
    trunk/libmqdb-perl/lib/MQdb/MappedQuery.pm

Modified: trunk/libmqdb-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/Changes?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/Changes (original)
+++ trunk/libmqdb-perl/Changes Thu Jun  4 07:26:02 2009
@@ -1,4 +1,10 @@
 Revision history for Perl module package MQdb.
+
+0.954	June 3, 2009
+        - added some more perldoc
+        - fixed MQdb::Database to work better with sqlite and 
+          other file-based database engines
+        - removed ->isa() check when setting database in DBObject for speed
 
 0.953	Friday 17 April, 2009
 	- improved the perldoc formating and content

Modified: trunk/libmqdb-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/README?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/README (original)
+++ trunk/libmqdb-perl/README Thu Jun  4 07:26:02 2009
@@ -59,8 +59,9 @@
 
 VERSION
 -------
-0.953 Friday   April 17, 2009
-0.951 Thursday April 2, 2009
+0.954 Wednesday  June 3, 2009
+0.953 Friday     April 17, 2009
+0.951 Thursday   April 2, 2009
 
 DOCUMENTATION
 -------------
@@ -83,8 +84,8 @@
 	Hard-headed users can directly get the distribution from 
 	First download the source.
 	Then, in a shell:
-	/home/somewhere% tar -xzvf MQdb-0.953.tar.gz
-	cd MQdb-0.953
+	/home/somewhere% tar -xzvf MQdb-0.954.tar.gz
+	cd MQdb-0.954
 	make
 	make install
 

Modified: trunk/libmqdb-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/debian/changelog?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/debian/changelog (original)
+++ trunk/libmqdb-perl/debian/changelog Thu Jun  4 07:26:02 2009
@@ -1,3 +1,9 @@
+libmqdb-perl (0.954-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Charles Plessy <plessy at debian.org>  Thu, 04 Jun 2009 16:21:14 +0900
+
 libmqdb-perl (0.953-1) unstable; urgency=low
 
   * Initial Release (Closes: #524998).

Modified: trunk/libmqdb-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/debian/copyright?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/debian/copyright (original)
+++ trunk/libmqdb-perl/debian/copyright Thu Jun  4 07:26:02 2009
@@ -2,7 +2,7 @@
 
 Name: MappedQueryDB [MQdb] system
 Contact: Jessica Severin <jessica.severin at gmail.com>
-Source: http://search.cpan.org/CPAN/authors/id/J/JM/JMS/MQdb_0.953.tar.gz
+Source: http://search.cpan.org/CPAN/authors/id/J/JM/JMS/MQdb_0.954.tar.gz
 
 License: 
  MappedQueryDB [MQdb] system

Modified: trunk/libmqdb-perl/lib/MQdb.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/lib/MQdb.pm?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/lib/MQdb.pm (original)
+++ trunk/libmqdb-perl/lib/MQdb.pm Thu Jun  4 07:26:02 2009
@@ -1,3 +1,4 @@
+# $Id: MQdb.pm,v 1.7 2009/05/30 01:54:30 severin Exp $
 =pod
  
 =head1 NAME - MQdb
@@ -49,7 +50,7 @@
 
 =cut
 
-$VERSION=0.953;
+$VERSION=0.954;
 
 package MQdb;
 use strict;

Modified: trunk/libmqdb-perl/lib/MQdb/DBObject.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/lib/MQdb/DBObject.pm?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/lib/MQdb/DBObject.pm (original)
+++ trunk/libmqdb-perl/lib/MQdb/DBObject.pm Thu Jun  4 07:26:02 2009
@@ -1,3 +1,4 @@
+# $Id: DBObject.pm,v 1.13 2009/06/03 06:47:32 severin Exp $
 =head1 NAME
 
 MQdb::DBObject - DESCRIPTION of Object
@@ -55,7 +56,7 @@
 
 =cut
 
-$VERSION=0.953;
+$VERSION=0.954;
 
 package MQdb::DBObject;
 
@@ -162,9 +163,6 @@
   my $self = shift;
   if(@_) {
     my $db = shift;
-    if(defined($db) and !($db->isa('MQdb::Database'))) {
-      die("$db is not a MQdb::Database");
-    }
     $self->{'_database'} = $db;
   }
   return $self->{'_database'};

Modified: trunk/libmqdb-perl/lib/MQdb/DBStream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/lib/MQdb/DBStream.pm?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/lib/MQdb/DBStream.pm (original)
+++ trunk/libmqdb-perl/lib/MQdb/DBStream.pm Thu Jun  4 07:26:02 2009
@@ -1,3 +1,4 @@
+# $Id: DBStream.pm,v 1.15 2009/06/03 06:47:32 severin Exp $
 =head1 NAME
 
 MQdb::DBStream - DESCRIPTION of Object
@@ -51,7 +52,7 @@
 
 my $__mqdb_dbstream_should_use_result = undef;
 
-$VERSION=0.953;
+$VERSION=0.954;
 
 package MQdb::DBStream;
 

Modified: trunk/libmqdb-perl/lib/MQdb/Database.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/lib/MQdb/Database.pm?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/lib/MQdb/Database.pm (original)
+++ trunk/libmqdb-perl/lib/MQdb/Database.pm Thu Jun  4 07:26:02 2009
@@ -1,3 +1,4 @@
+# $Id: Database.pm,v 1.34 2009/05/30 01:57:14 severin Exp $
 =pod
  
 =head1 NAME - MQdb::Database
@@ -80,7 +81,7 @@
 
 =cut
 
-$VERSION=0.953;
+$VERSION=0.954;
 
 package MQdb::Database;
 use strict;
@@ -95,11 +96,33 @@
 
 =cut
 
+=head2 new
+
+  Description: instance creation method
+  Returntype : instance of this Class (subclass)
+  Exceptions : none
+
+=cut
+
 sub new {
-  my ($class, %params) = @_;
-  
+  my ($class, @args) = @_;
   my $self = {};
-  bless $self, $class;
+  bless $self,$class;
+  $self->init(@args);
+  return $self;
+}
+
+=head2 init
+
+  Description: initialization method which subclasses can extend
+  Returntype : $self
+  Exceptions : subclass dependent
+
+=cut
+
+sub init {
+  my ($self, %params) = @_;
+  
   $self->{'_uuid'}   = '';  #initially not set
   $self->{'_driver'} = 'mysql';
   $self->{'_host'}     = $params{'-host'};
@@ -181,7 +204,7 @@
     $params = substr($dbname, $p2+1, length($dbname));
     $dbname = substr($dbname, 0, $p2);
   }
-  if(($driver ne 'sqlite') and ($p2=index($dbname, "/")) != -1) {
+  if((($driver eq 'mysql') or ($driver eq 'oracle')) and ($p2=index($dbname, "/")) != -1) {
     $path   = substr($dbname, $p2+1, length($dbname));
     $dbname = substr($dbname, 0, $p2);
   }
@@ -279,7 +302,7 @@
 
 sub dbc {
   my $self = shift;
-  return $self->_get_connection;
+  return $self->get_connection;
 }
 
 sub get_connection {
@@ -408,12 +431,13 @@
   #no username or password in URL
   my $self = shift;
   return $self->{'_short_url'} if(defined($self->{'_short_url'}));
-  $self->{'_short_url'} = 
-       sprintf("%s://%s:%s/%s", 
-               $self->driver, 
-               $self->host, 
-               $self->port, 
-               $self->dbname);
+  my $url = $self->driver . "://";
+  if($self->host) {
+    if($self->port) { $url .= $self->host .":". $self->port; }
+    else { $url .= $self->host; }
+  }
+  $url .= "/". $self->dbname;
+  $self->{'_short_url'} = $url;
   return $self->{'_short_url'};
 }
 

Modified: trunk/libmqdb-perl/lib/MQdb/MappedQuery.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmqdb-perl/lib/MQdb/MappedQuery.pm?rev=37411&op=diff
==============================================================================
--- trunk/libmqdb-perl/lib/MQdb/MappedQuery.pm (original)
+++ trunk/libmqdb-perl/lib/MQdb/MappedQuery.pm Thu Jun  4 07:26:02 2009
@@ -1,3 +1,4 @@
+# $Id: MappedQuery.pm,v 1.23 2009/06/03 06:47:32 severin Exp $
 =head1 NAME
 
 MQdb::MappedQuery - DESCRIPTION of Object
@@ -89,7 +90,7 @@
 
 =cut
 
-$VERSION=0.953;
+$VERSION=0.954;
 
 package MQdb::MappedQuery;
 




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