search-xapian/Xapian/ESet.pm

   1 package Search::Xapian::ESet;
   2
   3 use 5.006;
   4 use strict;
   5 use warnings;
   6 use Carp;
   7
   8 use Tie::Array;
   9 require DynaLoader;
  10
  11 our @ISA = qw(Tie::Array DynaLoader);
  12
  13 # Preloaded methods go here.
  14
  15 # In a new thread, copy objects of this class to unblessed, undef values.
  16 sub CLONE_SKIP { 1 }
  17
  18 use overload '='  => sub { $_[0]->clone() },
  19              'fallback' => 1;
  20
  21 sub new() {
  22   my $class = shift;
  23   my $mset;
  24   my $invalid_args;
  25   if( scalar(@_) == 0 ) {
  26     $mset = new1();
  27   } elsif( scalar(@_) == 1 and ref( $_[1] ) eq $class ) {
  28     $mset = new2(@_);
  29   } else {
  30     $invalid_args = 1;
  31   }
  32   if( $invalid_args ) {
  33     Carp::carp( "USAGE: $class->new(), $class->new(\$eset)" );
  34     exit;
  35   }
  36   bless $mset, $class;
  37   return $mset;
  38 }
  39
  40 sub items {
  41   my $self = shift;
  42   my @array;
  43   tie( @array, 'Search::Xapian::ESet', $self );
  44   return @array;
  45 }
  46
  47 sub TIEARRAY {
  48   my $class = shift;
  49   my $eset = shift;
  50   return bless $eset, $class;
  51 }
  52
  53 1;