Author: spadkins
Date: Mon Sep 18 12:59:54 2006
New Revision: 7841
Modified:
p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
Log:
change xyz_dbname to xyz.dbname as App::Options name to set attributes of an
App::Repository::DBI service
Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Mon Sep 18 12:59:54 2006
@@ -345,7 +345,7 @@
if ($self->{$var}) {
$config_from_options = 0;
}
- if ($options->{"${name}_${var}"}) {
+ if ($options->{"${name}.${var}"}) {
$config_from_ext_options = 1;
}
}
@@ -353,8 +353,8 @@
if ($config_from_options) {
if ($config_from_ext_options) {
foreach my $var qw(dbdsn dbdriver dbhost dbport dbsocket
dbname dbuser dbpass dbschema dbioptions) {
- if (defined $options->{"${name}_${var}"}) {
- $self->{$var} = $options->{"${name}_${var}"};
+ if (defined $options->{"${name}.${var}"}) {
+ $self->{$var} = $options->{"${name}.${var}"};
}
}
}
@@ -2403,6 +2403,75 @@
$retval;
}
+#############################################################################
+# begin()
+#############################################################################
+
+=head2 begin()
+
+ * Signature: $rep->begin();
+ * Param: void
+ * Return: void
+ * Throws: App::Exception::Repository
+ * Since: 0.01
+
+ Sample Usage:
+
+ $rep->begin();
+
+=cut
+
+sub begin {
+ my $self = shift;
+ $self->_do("begin");
+}
+
+#############################################################################
+# commit()
+#############################################################################
+
+=head2 commit()
+
+ * Signature: $rep->commit();
+ * Param: void
+ * Return: void
+ * Throws: App::Exception::Repository
+ * Since: 0.01
+
+ Sample Usage:
+
+ $rep->commit();
+
+=cut
+
+sub commit {
+ my $self = shift;
+ $self->_do("commit");
+}
+
+#############################################################################
+# rollback()
+#############################################################################
+
+=head2 rollback()
+
+ * Signature: $rep->rollback();
+ * Param: void
+ * Return: void
+ * Throws: App::Exception::Repository
+ * Since: 0.01
+
+ Sample Usage:
+
+ $rep->rollback();
+
+=cut
+
+sub rollback {
+ my $self = shift;
+ $self->_do("rollback");
+}
+
sub explain_sql {
my ($self, $sql) = @_;
# to be overridden in each Repository class
