cgi-bin/LJ/Search.pm

   1 package LJ::Search;
   2 use strict;
   3 use Carp qw (croak);
   4
   5 our $searcher;
   6
   7 # returns a search client
   8 sub client {
   9     my ($class) = @_;
  10
  11     unless ($searcher) {
  12         $searcher = LJ::run_hook("content_search_client");
  13     }
  14
  15     return $searcher;
  16 }
  17
  18 # returns a new document with the data in %opts
  19 sub document {
  20     my ($class, %opts) = @_;
  21
  22     return LJ::run_hook("content_search_document", %opts);
  23 }
  24
  25 1;
  26
  27