1 # $Id: ScanEntry.pm,v 1.1 2003-03-04 19:33:52 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.1 $ =~ /\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
73 Peter Popovics, pop@technomat.hu
77 IDZebra, IDZebra::ScanList, Zebra documentation