Changeset 30343 for gs2-extensions

Show
Ignore:
Timestamp:
03.12.2015 16:32:17 (4 years ago)
Author:
jmt12
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb/trunk/perllib/DBDrivers/BaseDBDriver.pm

    r30336 r30343  
    4747    # BaseDBDriver 
    4848    $self->{'default_file_extension'} = 'err'; 
     49    # Support 
     50    $self->{'supports_set'} = 0; 
    4951    bless($self, $class); 
    5052    return $self; 
     
    115117 
    116118 
    117 ## @function canInstantiate(void) => integer 
    118 # 
    119 #  Called to determine if this driver implementation can actually be created 
    120 #  given its purpose and the current system (i.e. Windows only drivers on 
    121 #  Linux systems can't be instantiated...) 
    122 # 
    123 sub canInstantiate 
    124 { 
    125     # Can't ever instantiate the base driver 
    126     return 0; 
    127 } 
    128 ## canInstantiate(void) => integer  ## 
    129  
    130  
    131119## @function get_infodb_file_path(string, string) => string 
    132120# 
     
    173161 
    174162 
     163## @function supportsSet(void) => integer 
     164# 
     165#  Not all drivers support the notion of set 
     166# 
     167sub supportsSet 
     168{ 
     169    my $self = shift(@_); 
     170    return $self->{'supports_set'}; 
     171} 
     172## supportsSet(void) => integer ## 
     173 
     174 
    175175############################################################################### 
    176176## Virtual Functions