C4/Query.pm

   1 package C4::Query;
   2
   3 # Copyright 2004 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 # $Id$
  21
  22 use 5.006;
  23 use strict;
  24 use warnings;
  25
  26 require Exporter;
  27 use AutoLoader qw(AUTOLOAD);
  28
  29 our @ISA = qw(Exporter);
  30
  31 our %EXPORT_TAGS = (
  32     'all' => [
  33         qw(
  34
  35         )
  36     ]
  37 );
  38
  39 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
  40
  41 our @EXPORT = qw(
  42
  43 );
  44
  45 our $VERSION = do { my @v = '$Revision$' =~ /\d+/g;
  46     shift (@v) . "." . join ( "_", map { sprintf "%03d", $_ } @v );
  47 };
  48
  49 # Preloaded methods go here.
  50
  51 sub new {
  52     my $class         = shift;
  53     my $search_string = shift;    # high level query to construct search from
  54     my $self          = {};
  55     $self->{"search_string"} = $search_string;
  56     bless $self, $class;
  57     return $self;
  58 }
  59
  60 sub count {
  61     my $self = shift;
  62
  63 }
  64
  65 sub results {
  66     my $self = shift;
  67
  68 }
  69
  70 # Autoload methods go after =cut, and are processed by the autosplit program.
  71
  72 1;
  73 __END__
  74
  75 # Below is stub documentation for your module. You better edit it!
  76
  77 =head1 NAME
  78
  79 C4::Query
  80
  81 =head1 SYNOPSIS
  82
  83   use C4::Query;
  84
  85
  86 =head1 DESCRIPTION
  87
  88 =head2 METHODS
  89
  90 =item new
  91
  92 $query = new C4::Query("title:bob marley");
  93
  94
  95
  96 =head2 EXPORT
  97
  98 None by default.
  99
 100
 101 =head1 AUTHOR
 102
 103 Koha Development Team
 104
 105 =head1 SEE ALSO
 106
 107 L<perl>.
 108
 109 =cut
 110