search-xapian/Xapian/BoolWeight.pm

   1 package Search::Xapian::BoolWeight;
   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   } else {
  24     Carp::carp("USAGE: $class->new()");
  25     exit;
  26   }
  27   bless $weight, $class;
  28   return $weight;
  29 }
  30
  31 1;
  32
  33 __END__
  34
  35 =head1 NAME
  36
  37 Search::Xapian::BoolWeight - Boolean Weighting scheme.
  38
  39 =head1 DESCRIPTION
  40
  41 Boolean Weighting scheme. All documents get a weight of 0.
  42
  43 =head1 METHODS
  44
  45 =over 4
  46
  47 =item new
  48
  49 Constructor. Takes no arguments.
  50
  51 =back
  52
  53 =head1 SEE ALSO
  54
  55 L<Search::Xapian>,
  56 L<Search::Xapian::Enquire>
  57
  58 =cut