KiokuDB::TypeMap::Entry::Naive->new(),
"Graph" => Text::Tradition::TypeMap::Entry->new(),
"Graph::AdjacencyMap" => Text::Tradition::TypeMap::Entry->new(),
- "Lingua::Features::Structure" => Text::Tradition::TypeMap::Entry->new,
- "Lingua::Features::FeatureType" => Text::Tradition::TypeMap::Entry->new,
}
);
},
# TODO Garbage collection doesn't work. Suck it up and live with the
# inflated DB.
-# after delete => sub {
-# my $self = shift;
-# my $gc = KiokuDB::GC::Naive->new( backend => $self->directory->backend );
-# $self->directory->backend->delete( $gc->garbage->members );
-# };
+after delete => sub {
+ my $self = shift;
+ my $gc = KiokuDB::GC::Naive->new( backend => $self->directory->backend );
+ $self->directory->backend->delete( $gc->garbage->members );
+};
sub save {
my $self = shift;