search-xapian/Xapian/TradWeight.pm

   1 package Search::Xapian::TradWeight;
   2
   3 use 5.006;
   4 use strict;
   5 use warnings;
   6 use Carp;
   7
   8 use Search::Xapian::Weight;
   9
  10 require DynaLoader;
  11
  12 our @ISA = qw( DynaLoader Search::Xapian::Weight);
  13
  14 # In a new thread, copy objects of this class to unblessed, undef values.
  15 sub CLONE_SKIP { 1 }
  16
  17 sub new {
  18   my $class = shift;
  19   my $weight;
  20
  21   if (scalar(@_) == 0) {
  22     $weight = new1();
  23   } elsif (scalar(@_) == 1) {
  24     $weight = new2(@_);
  25   } else {
  26     Carp::carp("USAGE: $class->new(), $class->new(k)");
  27     exit;
  28   }
  29   bless $weight, $class;
  30   return $weight;
  31 }
  32
  33 1;
  34
  35 __END__
  36
  37 =head1 NAME
  38
  39 Search::Xapian::TradWeight - Traditional Probabilistic Weighting scheme.
  40
  41 =head1 DESCRIPTION
  42
  43 Traditional Probabilistic Weighting scheme, as described by the early papers
  44 on Probabilistic Retrieval.  BM25 generally gives better results.
  45
  46 =head1 METHODS
  47
  48 =over 4
  49
  50 =item new
  51
  52 Constructor. Either takes no parameters, or a single non-negative parameter k.
  53 If k isn't specified, the default value used is 1.
  54
  55 =back
  56
  57 =head1 SEE ALSO
  58
  59 L<Search::Xapian>,
  60 L<Search::Xapian::Enquire>
  61
  62 =cut