--- trunk/Split.pm 2004/08/08 10:09:55 1 +++ trunk/Split.pm 2004/08/08 10:53:04 3 @@ -100,18 +100,27 @@ sub add { my $self = shift; + + my $swishpath = shift || return; + my $data = shift || return; + + return 1; } =head2 delete -Delete document from index. +Delete documents from index. - $i->delete($swishpath); + $i->delete(@swishpath); =cut sub delete { my $self = shift; + + my @paths = @_ || return; + + return 42; } @@ -128,6 +137,8 @@ sub close { my $self = shift; + + return 1; } @@ -231,6 +242,23 @@ } } +=head2 find_paths + +Return array of Cs for given C query. + + my @p = $i->find_paths("headline=test*"); + +Useful for combining with L<"delete_documents"> to delete documents +which hasn't changed a while (so, expired). + +=cut + +sub find_paths { + my $self = shift; + + my $s = shift || return; +} + 1;