[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Storage / DBI.pm

package DBM::Deep::Storage::DBI;

use 5.006_000;

use strict;
use warnings FATAL => 'all';

use base 'DBM::Deep::Storage';

sub is_writable {
    my $self = shift;
    return 1;
}

sub lock_exclusive {
    my $self = shift;
}

sub lock_shared {
    my $self = shift;
}

sub unlock {
    my $self = shift;
}

1;
__END__
Commit	Line	Data
2c70efe1	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__