Mailing List Archive

Author: creamyg
Date: 2008-07-28 13:23:58 -0700 (Mon, 28 Jul 2008)
New Revision: 3659

Modified:
trunk/perl/lib/KinoSearch.pm
Log:
Kill off some vestigial %instance_vars hashes.


Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-07-28 19:15:57 UTC (rev 3658)
+++ trunk/perl/lib/KinoSearch.pm 2008-07-28 20:23:58 UTC (rev 3659)
@@ -453,13 +453,7 @@
{
package KinoSearch::Highlight::Highlighter;
use KinoSearch::Util::ToolSet qw( confess a_isa_b );
- BEGIN { push our @ISA, 'Exporter' }

- our %instance_vars = __PACKAGE__->init_instance_vars(
- # members
- token_re => \our %token_re,
- );
-
use HTML::Entities qw( encode_entities );
use KinoSearch::Highlight::HeatMap;

@@ -474,7 +468,6 @@
$query = $searchable->prepare_simple_search($query);
}
my $self = $either->_new( %args, query => $query );
- $token_re{$$self} = qr/\b\w+(?:'\w+)?\b/;
return $self;
}

@@ -962,14 +955,6 @@
sub index_interval {128}
sub skip_interval {16}

- our %instance_vars = __PACKAGE__->init_instance_vars(
- # private constructor params
- similarity => undef,
- analyzer => undef,
- index_interval => undef,
- skip_interval => undef,
- );
-
sub new {
my $either = shift;
my $class = ref($either) || $either;


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