Changeset 30343
- Timestamp:
- 2015-12-03T16:32:17+13:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/tdb/trunk/perllib/DBDrivers/BaseDBDriver.pm
r30336 r30343 47 47 # BaseDBDriver 48 48 $self->{'default_file_extension'} = 'err'; 49 # Support 50 $self->{'supports_set'} = 0; 49 51 bless($self, $class); 50 52 return $self; … … 115 117 116 118 117 ## @function canInstantiate(void) => integer118 #119 # Called to determine if this driver implementation can actually be created120 # given its purpose and the current system (i.e. Windows only drivers on121 # Linux systems can't be instantiated...)122 #123 sub canInstantiate124 {125 # Can't ever instantiate the base driver126 return 0;127 }128 ## canInstantiate(void) => integer ##129 130 131 119 ## @function get_infodb_file_path(string, string) => string 132 120 # … … 173 161 174 162 163 ## @function supportsSet(void) => integer 164 # 165 # Not all drivers support the notion of set 166 # 167 sub supportsSet 168 { 169 my $self = shift(@_); 170 return $self->{'supports_set'}; 171 } 172 ## supportsSet(void) => integer ## 173 174 175 175 ############################################################################### 176 176 ## Virtual Functions
Note:
See TracChangeset
for help on using the changeset viewer.