File Coverage

blib/lib/Text/Query/Optimize.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 3 33.3
total 16 18 88.8


line stmt bran cond sub pod time code
1             #
2             # Copyright (C) 1999 Eric Bohlman, Loic Dachary
3             #
4             # This program is free software; you can redistribute it and/or modify it
5             # under the terms of the GNU General Public License as published by the
6             # Free Software Foundation; either version 2, or (at your option) any
7             # later version. You may also use, redistribute and/or modify it
8             # under the terms of the Artistic License supplied with your Perl
9             # distribution
10             #
11             # This program is distributed in the hope that it will be useful,
12             # but WITHOUT ANY WARRANTY; without even the implied warranty of
13             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14             # GNU General Public License for more details.
15             #
16             # You should have received a copy of the GNU General Public License
17             # along with this program; if not, write to the Free Software
18             # Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19              
20             package Text::Query::Optimize;
21              
22 2     2   11 use strict;
  2         4  
  2         268  
23              
24             sub new {
25 5     5 0 13 my($class) = shift;
26 5         11 my($self) = {};
27 5         12 bless $self,$class;
28              
29 5         17 $self->initialize();
30              
31 5         16 return $self;
32             }
33              
34 5     5 0 8 sub initialize {
35             }
36              
37             sub optimize {
38 43     43 1 74 my($self, $expr) = @_;
39              
40 43         172 return $expr;
41             }
42              
43             1;
44              
45             __END__