perl/lib/IDZebra/ScanEntry.pm

   1 # $Id: ScanEntry.pm,v 1.1 2003-03-04 19:33:52 pop Exp $
   2 #
   3 # Zebra perl API header
   4 # =============================================================================
   5 package IDZebra::ScanEntry;
   6
   7 use strict;
   8 use warnings;
   9
  10 BEGIN {
  11     use IDZebra;
  12     use IDZebra::Logger qw(:flags :calls);
  13     use Scalar::Util qw(weaken);
  14     use Carp;
  15     our $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
  16 }
  17
  18 1;
  19
  20 # -----------------------------------------------------------------------------
  21 # Class constructors, destructor
  22 # -----------------------------------------------------------------------------
  23
  24
  25 sub new {
  26     my ($proto,%args) = @_;
  27     my $class = ref($proto) || $proto;
  28     my $self = \%args;
  29     bless ($self, $class);
  30     weaken ($self->{list});
  31     return ($self);
  32 }
  33
  34 # =============================================================================
  35 sub DESTROY {
  36     my $self = shift;
  37 }
  38
  39 # -----------------------------------------------------------------------------
  40 sub term {
  41     my $self = shift;
  42     return ($self->{entry}{term});
  43 }
  44
  45 sub occurrences {
  46     my $self = shift;
  47     return ($self->{entry}{occurrences});
  48 }
  49
  50 sub position {
  51     my $self = shift;
  52     return ($self->{position});
  53 }
  54 # -----------------------------------------------------------------------------
  55 __END__
  56
  57 =head1 NAME
  58
  59 IDZebra::ScanEntry - An entry of the scan results
  60
  61 =head1 SYNOPSIS
  62
  63 =head1 DESCRIPTION
  64
  65 =head1 PROPERTIES
  66
  67 =head1 COPYRIGHT
  68
  69 Fill in
  70
  71 =head1 AUTHOR
  72
  73 Peter Popovics, pop@technomat.hu
  74
  75 =head1 SEE ALSO
  76
  77 IDZebra, IDZebra::ScanList, Zebra documentation
  78
  79 =cut