1 # $Id: ScanEntry.pm,v 1.2 2003-03-05 13:55:22 pop Exp $
3 # Zebra perl API header
4 # =============================================================================
5 package IDZebra::ScanEntry;
12 use IDZebra::Logger qw(:flags :calls);
13 use Scalar::Util qw(weaken);
15 our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
20 # -----------------------------------------------------------------------------
21 # Class constructors, destructor
22 # -----------------------------------------------------------------------------
26 my ($proto,%args) = @_;
27 my $class = ref($proto) || $proto;
29 bless ($self, $class);
30 weaken ($self->{list});
34 # =============================================================================
39 # -----------------------------------------------------------------------------
42 return ($self->{entry}{term});
47 return ($self->{entry}{occurrences});
52 return ($self->{position});
54 # -----------------------------------------------------------------------------
59 IDZebra::ScanEntry - An entry of the scan results
63 foreach my $se ($sl->entries()) {
64 print STDERR ($se->position ,": ",
66 $se->occurrences() . "\n");
71 A scan entry describes occurrence of a term in the scanned index.
83 Position of term in the list. 1 based.
87 The occurrence count of the term in the selected database(s).
93 A I<resultSet> and maybe a I<records> method, to reach the records, where the term occurred.
101 Peter Popovics, pop@technomat.hu
105 IDZebra, IDZebra::ScanList, Zebra documentation