Changeset 30343 for gs2-extensions/tdb

Timestamp:

2015-12-03T16:32:17+13:00 (8 years ago)

Author:

jmt12

Message:

Minor changes to support drivers that don't support set_entry functionality. Defaults to not supported.

File:

• gs2-extensions/tdb/trunk/perllib/DBDrivers/BaseDBDriver.pm (modified) (3 diffs)

gs2-extensions/tdb/trunk/perllib/DBDrivers/BaseDBDriver.pm

@@ -47 +47 @@
     # BaseDBDriver
     $self->{'default_file_extension'} = 'err';
+    # Support
+    $self->{'supports_set'} = 0;
     bless($self, $class);
     return $self;
@@ -115 +117 @@
 
 
-## @function canInstantiate(void) => integer
-#
-#  Called to determine if this driver implementation can actually be created
-#  given its purpose and the current system (i.e. Windows only drivers on
-#  Linux systems can't be instantiated...)
-#
-sub canInstantiate
-{
-    # Can't ever instantiate the base driver
-    return 0;
-}
-## canInstantiate(void) => integer  ##
-
-
 ## @function get_infodb_file_path(string, string) => string
 #
@@ -173 +161 @@
 
 
+## @function supportsSet(void) => integer
+#
+#  Not all drivers support the notion of set
+#
+sub supportsSet
+{
+    my $self = shift(@_);
+    return $self->{'supports_set'};
+}
+## supportsSet(void) => integer ##
+
+
 ###############################################################################
 ## Virtual Functions