Mailing List Archive

r3647 - trunk/perl/lib/KinoSearch/Search
Author: creamyg
Date: 2008-07-27 17:26:37 -0700 (Sun, 27 Jul 2008)
New Revision: 3647

Modified:
trunk/perl/lib/KinoSearch/Search/Compiler.pm
Log:
Kill off some vestigial code in Compiler.pm.


Modified: trunk/perl/lib/KinoSearch/Search/Compiler.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Compiler.pm 2008-07-28 00:19:17 UTC (rev 3646)
+++ trunk/perl/lib/KinoSearch/Search/Compiler.pm 2008-07-28 00:26:37 UTC (rev 3647)
@@ -3,10 +3,8 @@

package KinoSearch::Search::Compiler;
use KinoSearch::Util::ToolSet qw( a_isa_b confess );
-use KinoSearch::base qw( KinoSearch::Obj Exporter );
+use KinoSearch::base qw( KinoSearch::Obj );

-our @EXPORT_OK = qw( %highlight_spans_args );
-
sub new {
my ( $either, %args ) = @_;
if ( !defined $args{boost} ) {
@@ -17,12 +15,6 @@
return $either->do_new(%args);
}

-our %highlight_spans_args = (
- searchable => undef,
- doc_vec => undef,
- field => undef,
-);
-
sub highlight_spans {
my $self = shift;
return @{ $self->_highlight_spans(@_)->to_perl };


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits