lib/DBM/Deep/Storage/DBI.pm

   1 package DBM::Deep::Storage::DBI;
   2
   3 use 5.006_000;
   4
   5 use strict;
   6 use warnings FATAL => 'all';
   7
   8 use base 'DBM::Deep::Storage';
   9
  10 sub is_writable {
  11     my $self = shift;
  12     return 1;
  13 }
  14
  15 sub lock_exclusive {
  16     my $self = shift;
  17 }
  18
  19 sub lock_shared {
  20     my $self = shift;
  21 }
  22
  23 sub unlock {
  24     my $self = shift;
  25 }
  26
  27 1;
  28 __END__