diff options
| author | franck cuny <franck.cuny@rtgi.fr> | 2009-03-13 09:19:48 +0100 |
|---|---|---|
| committer | franck cuny <franck.cuny@rtgi.fr> | 2009-03-13 09:19:48 +0100 |
| commit | e73edd1995ca34a4cad28d04dbea9d6360069b6d (patch) | |
| tree | 7598fb1965319efdb39d3f30ff551b955ee5577a /lib | |
| parent | fix stupid typo (diff) | |
| download | kiokudb-backend-memcachedb-e73edd1995ca34a4cad28d04dbea9d6360069b6d.tar.gz | |
remove txn::memory, update test to check if memcachedb is running
Diffstat (limited to '')
| -rw-r--r-- | lib/KiokuDB/Backend/Memcachedb.pm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/lib/KiokuDB/Backend/Memcachedb.pm b/lib/KiokuDB/Backend/Memcachedb.pm index 1341c79..e352eac 100644 --- a/lib/KiokuDB/Backend/Memcachedb.pm +++ b/lib/KiokuDB/Backend/Memcachedb.pm @@ -13,7 +13,6 @@ our $VERSION = "0.01"; with qw( KiokuDB::Backend KiokuDB::Backend::Serialize::Delegate - KiokuDB::Backend::Role::TXN::Memory KiokuDB::Backend::Role::Concurrency::POSIX ); @@ -59,29 +58,6 @@ sub get { @objs; } -sub commit_entries { - my ( $self, @entries ) = @_; - my $db = $self->db; - my @checks = $self->exists( map { $_->id } @entries ); - - foreach my $entry ( @entries ) { - my $id = $entry->id; - - my $status = shift @checks; - if ( $entry->deleted ) { - if ( !$status ) { - croak "Entry $id doesn't exist in the database"; - } - $db->delete( $id ); - } else { - if ( $status and not $entry->has_prev ) { - croak "Entry $id already exists in the database"; - } - $db->set( $id, $self->serialize( $entry ) ); - } - } -} - sub exists { my ( $self, @ids ) = @_; my $check = $self->db->get_multi( @ids ); |
