r37409 - in /branches/upstream/libmqdb-perl/current: Changes README 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:09:12 UTC 2009
Author: plessy
Date: Thu Jun 4 07:08:54 2009
New Revision: 37409
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37409
Log:
[svn-upgrade] Integrating new upstream version, libmqdb-perl (0.954)
Modified:
branches/upstream/libmqdb-perl/current/Changes
branches/upstream/libmqdb-perl/current/README
branches/upstream/libmqdb-perl/current/lib/MQdb.pm
branches/upstream/libmqdb-perl/current/lib/MQdb/DBObject.pm
branches/upstream/libmqdb-perl/current/lib/MQdb/DBStream.pm
branches/upstream/libmqdb-perl/current/lib/MQdb/Database.pm
branches/upstream/libmqdb-perl/current/lib/MQdb/MappedQuery.pm
Modified: branches/upstream/libmqdb-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/Changes?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/Changes (original)
+++ branches/upstream/libmqdb-perl/current/Changes Thu Jun 4 07:08:54 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: branches/upstream/libmqdb-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/README?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/README (original)
+++ branches/upstream/libmqdb-perl/current/README Thu Jun 4 07:08:54 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: branches/upstream/libmqdb-perl/current/lib/MQdb.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/lib/MQdb.pm?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/lib/MQdb.pm (original)
+++ branches/upstream/libmqdb-perl/current/lib/MQdb.pm Thu Jun 4 07:08:54 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: branches/upstream/libmqdb-perl/current/lib/MQdb/DBObject.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/lib/MQdb/DBObject.pm?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/lib/MQdb/DBObject.pm (original)
+++ branches/upstream/libmqdb-perl/current/lib/MQdb/DBObject.pm Thu Jun 4 07:08:54 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: branches/upstream/libmqdb-perl/current/lib/MQdb/DBStream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/lib/MQdb/DBStream.pm?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/lib/MQdb/DBStream.pm (original)
+++ branches/upstream/libmqdb-perl/current/lib/MQdb/DBStream.pm Thu Jun 4 07:08:54 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: branches/upstream/libmqdb-perl/current/lib/MQdb/Database.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/lib/MQdb/Database.pm?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/lib/MQdb/Database.pm (original)
+++ branches/upstream/libmqdb-perl/current/lib/MQdb/Database.pm Thu Jun 4 07:08:54 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: branches/upstream/libmqdb-perl/current/lib/MQdb/MappedQuery.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmqdb-perl/current/lib/MQdb/MappedQuery.pm?rev=37409&op=diff
==============================================================================
--- branches/upstream/libmqdb-perl/current/lib/MQdb/MappedQuery.pm (original)
+++ branches/upstream/libmqdb-perl/current/lib/MQdb/MappedQuery.pm Thu Jun 4 07:08:54 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