Mailing List Archive

Author: creamyg
Date: 2008-07-28 13:24:29 -0700 (Mon, 28 Jul 2008)
New Revision: 3660

Modified:
trunk/perl/lib/KSx/Search/MockScorer.pm
Log:
Change MockScorer implementation to rely solely upon public KS API.


Modified: trunk/perl/lib/KSx/Search/MockScorer.pm
===================================================================
--- trunk/perl/lib/KSx/Search/MockScorer.pm 2008-07-28 20:23:58 UTC (rev 3659)
+++ trunk/perl/lib/KSx/Search/MockScorer.pm 2008-07-28 20:24:29 UTC (rev 3660)
@@ -5,14 +5,11 @@
use KinoSearch::Util::ToolSet qw( confess reftype );
BEGIN { our @ISA = qw( KinoSearch::Search::Scorer ) }

-our %instance_vars = __PACKAGE__->init_instance_vars(
- # params / members
- doc_nums => \our %doc_nums,
- scores => \our %scores,
- # members
- tick => \our %tick,
- tally => \our %tally,
-);
+# Inside-out member vars.
+our %doc_nums;
+our %scores;
+our %tick;
+our %tally;

use KinoSearch::Search::Tally;
use KinoSearch::Search::Similarity;
@@ -34,6 +31,15 @@
return $self;
}

+sub DESTROY {
+ my $self = shift;
+ delete $doc_nums{$$self};
+ delete $scores{$$self};
+ delete $tick{$$self};
+ delete $tally{$$self};
+ $self->SUPER::DESTROY;
+}
+
sub get_doc_num {
my $self = shift;
return $doc_nums{$$self}->[ $tick{$$self} ];


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