Mailing List Archive

Author: creamyg
Date: 2008-07-27 12:49:38 -0700 (Sun, 27 Jul 2008)
New Revision: 3637

Modified:
trunk/perl/lib/KSx/Remote/SearchClient.pm
trunk/perl/lib/KSx/Remote/SearchServer.pm
trunk/perl/lib/KSx/Search/Filter.pm
trunk/perl/lib/KSx/Search/LongFieldSim.pm
trunk/perl/lib/KSx/Simple.pm
trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm
trunk/perl/lib/KinoSearch/Analysis/LCNormalizer.pm
trunk/perl/lib/KinoSearch/Analysis/PolyAnalyzer.pm
trunk/perl/lib/KinoSearch/Analysis/Stemmer.pm
trunk/perl/lib/KinoSearch/Analysis/Stopalizer.pm
trunk/perl/lib/KinoSearch/Analysis/Token.pm
trunk/perl/lib/KinoSearch/Analysis/TokenBatch.pm
trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm
trunk/perl/lib/KinoSearch/Doc.pm
trunk/perl/lib/KinoSearch/Doc/HitDoc.pm
trunk/perl/lib/KinoSearch/FieldSpec.pm
trunk/perl/lib/KinoSearch/FieldSpec/text.pm
trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm
trunk/perl/lib/KinoSearch/Highlight/HighlightSpan.pm
trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm
trunk/perl/lib/KinoSearch/Index/DelDocs.pm
trunk/perl/lib/KinoSearch/Index/DocReader.pm
trunk/perl/lib/KinoSearch/Index/DocVector.pm
trunk/perl/lib/KinoSearch/Index/DocWriter.pm
trunk/perl/lib/KinoSearch/Index/FilePurger.pm
trunk/perl/lib/KinoSearch/Index/IndexFileNames.pm
trunk/perl/lib/KinoSearch/Index/IndexReader.pm
trunk/perl/lib/KinoSearch/Index/Inverter.pm
trunk/perl/lib/KinoSearch/Index/LexCache.pm
trunk/perl/lib/KinoSearch/Index/LexReader.pm
trunk/perl/lib/KinoSearch/Index/LexStepper.pm
trunk/perl/lib/KinoSearch/Index/LexWriter.pm
trunk/perl/lib/KinoSearch/Index/Lexicon.pm
trunk/perl/lib/KinoSearch/Index/MultiLexicon.pm
trunk/perl/lib/KinoSearch/Index/MultiPostingList.pm
trunk/perl/lib/KinoSearch/Index/MultiReader.pm
trunk/perl/lib/KinoSearch/Index/PostingList.pm
trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm
trunk/perl/lib/KinoSearch/Index/SegDataReader.pm
trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm
trunk/perl/lib/KinoSearch/Index/SegInfo.pm
trunk/perl/lib/KinoSearch/Index/SegLexCache.pm
trunk/perl/lib/KinoSearch/Index/SegLexicon.pm
trunk/perl/lib/KinoSearch/Index/SegPostingList.pm
trunk/perl/lib/KinoSearch/Index/SegReader.pm
trunk/perl/lib/KinoSearch/Index/SegWriter.pm
trunk/perl/lib/KinoSearch/Index/Snapshot.pm
trunk/perl/lib/KinoSearch/Index/TermInfo.pm
trunk/perl/lib/KinoSearch/Index/TermVector.pm
trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm
trunk/perl/lib/KinoSearch/Index/TermVectorsWriter.pm
trunk/perl/lib/KinoSearch/InvIndex.pm
trunk/perl/lib/KinoSearch/InvIndexer.pm
trunk/perl/lib/KinoSearch/Obj.pm
trunk/perl/lib/KinoSearch/Obj/FastObj.pm
trunk/perl/lib/KinoSearch/Posting.pm
trunk/perl/lib/KinoSearch/Posting/MatchPosting.pm
trunk/perl/lib/KinoSearch/Posting/RichPosting.pm
trunk/perl/lib/KinoSearch/Posting/ScorePosting.pm
trunk/perl/lib/KinoSearch/QueryParser.pm
trunk/perl/lib/KinoSearch/Schema.pm
trunk/perl/lib/KinoSearch/Search/ANDQuery.pm
trunk/perl/lib/KinoSearch/Search/ANDScorer.pm
trunk/perl/lib/KinoSearch/Search/Compiler.pm
trunk/perl/lib/KinoSearch/Search/FieldDoc.pm
trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm
trunk/perl/lib/KinoSearch/Search/HitCollector.pm
trunk/perl/lib/KinoSearch/Search/HitQueue.pm
trunk/perl/lib/KinoSearch/Search/Hits.pm
trunk/perl/lib/KinoSearch/Search/LeafQuery.pm
trunk/perl/lib/KinoSearch/Search/MatchAllQuery.pm
trunk/perl/lib/KinoSearch/Search/MatchAllScorer.pm
trunk/perl/lib/KinoSearch/Search/MockScorer.pm
trunk/perl/lib/KinoSearch/Search/MultiSearcher.pm
trunk/perl/lib/KinoSearch/Search/NOTQuery.pm
trunk/perl/lib/KinoSearch/Search/NOTScorer.pm
trunk/perl/lib/KinoSearch/Search/NoMatchQuery.pm
trunk/perl/lib/KinoSearch/Search/NoMatchScorer.pm
trunk/perl/lib/KinoSearch/Search/ORQuery.pm
trunk/perl/lib/KinoSearch/Search/ORScorer.pm
trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm
trunk/perl/lib/KinoSearch/Search/PhraseScorer.pm
trunk/perl/lib/KinoSearch/Search/PolyCompiler.pm
trunk/perl/lib/KinoSearch/Search/PolyQuery.pm
trunk/perl/lib/KinoSearch/Search/Query.pm
trunk/perl/lib/KinoSearch/Search/RangeQuery.pm
trunk/perl/lib/KinoSearch/Search/RangeScorer.pm
trunk/perl/lib/KinoSearch/Search/RemoteFieldDoc.pm
trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm
trunk/perl/lib/KinoSearch/Search/RequiredOptionalScorer.pm
trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm
trunk/perl/lib/KinoSearch/Search/Scorer.pm
trunk/perl/lib/KinoSearch/Search/Searchable.pm
trunk/perl/lib/KinoSearch/Search/Similarity.pm
trunk/perl/lib/KinoSearch/Search/SortCollector.pm
trunk/perl/lib/KinoSearch/Search/SortSpec.pm
trunk/perl/lib/KinoSearch/Search/SortedHitQueue.pm
trunk/perl/lib/KinoSearch/Search/Tally.pm
trunk/perl/lib/KinoSearch/Search/TermQuery.pm
trunk/perl/lib/KinoSearch/Search/TermScorer.pm
trunk/perl/lib/KinoSearch/Search/TopDocCollector.pm
trunk/perl/lib/KinoSearch/Search/TopDocs.pm
trunk/perl/lib/KinoSearch/Searcher.pm
trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm
trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm
trunk/perl/lib/KinoSearch/Store/FSFileDes.pm
trunk/perl/lib/KinoSearch/Store/FSFolder.pm
trunk/perl/lib/KinoSearch/Store/FileDes.pm
trunk/perl/lib/KinoSearch/Store/Folder.pm
trunk/perl/lib/KinoSearch/Store/InStream.pm
trunk/perl/lib/KinoSearch/Store/Lock.pm
trunk/perl/lib/KinoSearch/Store/LockFactory.pm
trunk/perl/lib/KinoSearch/Store/OutStream.pm
trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm
trunk/perl/lib/KinoSearch/Store/RAMFolder.pm
trunk/perl/lib/KinoSearch/Store/SharedLock.pm
trunk/perl/lib/KinoSearch/Store/ViewFileDes.pm
trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm
trunk/perl/lib/KinoSearch/Test/TestQueryParserLogic.pm
trunk/perl/lib/KinoSearch/Test/TestQueryParserSyntax.pm
trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm
trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm
trunk/perl/lib/KinoSearch/Util/BitVector.pm
trunk/perl/lib/KinoSearch/Util/ByteBuf.pm
trunk/perl/lib/KinoSearch/Util/CharBuf.pm
trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm
trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm
trunk/perl/lib/KinoSearch/Util/Hash.pm
trunk/perl/lib/KinoSearch/Util/IntMap.pm
trunk/perl/lib/KinoSearch/Util/Json.pm
trunk/perl/lib/KinoSearch/Util/MemoryPool.pm
trunk/perl/lib/KinoSearch/Util/Native.pm
trunk/perl/lib/KinoSearch/Util/Num.pm
trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm
trunk/perl/lib/KinoSearch/Util/SortExRun.pm
trunk/perl/lib/KinoSearch/Util/SortExternal.pm
trunk/perl/lib/KinoSearch/Util/Stepper.pm
trunk/perl/lib/KinoSearch/Util/ToolSet.pm
trunk/perl/lib/KinoSearch/Util/VArray.pm
trunk/perl/lib/KinoSearch/Util/VirtualTable.pm
trunk/perl/t/010-verify_args.t
trunk/perl/t/018-native.t
trunk/perl/t/028-sortexrun.t
trunk/perl/t/207-seg_lexicon.t
trunk/perl/t/521-remote_field_doc.t
Log:
Make ToolSet a lot less polluting by using @EXPORT_OK rather than @EXPORT.
Remove lots of vestigial "use KinoSearch::Util::ToolSet;" directives.


Modified: trunk/perl/lib/KSx/Remote/SearchClient.pm
===================================================================
--- trunk/perl/lib/KSx/Remote/SearchClient.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KSx/Remote/SearchClient.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KSx::Remote::SearchClient;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess nfreeze thaw );
use KinoSearch::base qw( KinoSearch::Search::Searchable );

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KSx/Remote/SearchServer.pm
===================================================================
--- trunk/perl/lib/KSx/Remote/SearchServer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KSx/Remote/SearchServer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KSx::Remote::SearchServer;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess nfreeze thaw );
use KinoSearch::base qw( KinoSearch::Obj );

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KSx/Search/Filter.pm
===================================================================
--- trunk/perl/lib/KSx/Search/Filter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KSx/Search/Filter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KSx::Search::Filter;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess a_isa_b nfreeze thaw weaken );
use KinoSearch::base qw( KinoSearch::Search::Query );

our %instance_vars = __PACKAGE__->init_instance_vars(
@@ -125,7 +125,6 @@
}

package KSx::Search::FilterCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

sub new {
@@ -144,7 +143,6 @@
}

package KSx::Search::FilterScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KSx/Search/LongFieldSim.pm
===================================================================
--- trunk/perl/lib/KSx/Search/LongFieldSim.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KSx/Search/LongFieldSim.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KSx::Search::LongFieldSim;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Similarity );

sub length_norm {

Modified: trunk/perl/lib/KSx/Simple.pm
===================================================================
--- trunk/perl/lib/KSx/Simple.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KSx/Simple.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,14 @@
use warnings;

package KSx::Simple;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw(
+ confess
+ verify_args
+ kerror
+ weaken
+ reftype
+ refaddr
+);

# Create one Schema subclass for each language.
my $schema_code = '';

Modified: trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/Analyzer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Analysis::Analyzer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Doc;

Modified: trunk/perl/lib/KinoSearch/Analysis/LCNormalizer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/LCNormalizer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/LCNormalizer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Analysis::LCNormalizer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Analysis::Analyzer );

use KinoSearch::Analysis::Token;

Modified: trunk/perl/lib/KinoSearch/Analysis/PolyAnalyzer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/PolyAnalyzer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/PolyAnalyzer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Analysis::PolyAnalyzer;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino );
use KinoSearch::base qw( KinoSearch::Analysis::Analyzer );

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KinoSearch/Analysis/Stemmer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Stemmer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/Stemmer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Analysis::Stemmer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Analysis::Analyzer );
use Lingua::Stem::Snowball;


Modified: trunk/perl/lib/KinoSearch/Analysis/Stopalizer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Stopalizer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/Stopalizer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Analysis::Stopalizer;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess reftype to_kino );
use KinoSearch::base qw( KinoSearch::Analysis::Analyzer );

use Lingua::StopWords;

Modified: trunk/perl/lib/KinoSearch/Analysis/Token.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Token.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/Token.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Analysis::Token;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj );

our %new_PARAMS = (

Modified: trunk/perl/lib/KinoSearch/Analysis/TokenBatch.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/TokenBatch.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/TokenBatch.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Analysis::TokenBatch;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::VArray );

our %instance_vars = (

Modified: trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Analysis/Tokenizer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Analysis::Tokenizer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Analysis::Analyzer );

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KinoSearch/Doc/HitDoc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Doc/HitDoc.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Doc/HitDoc.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Doc::HitDoc;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Doc );

our %new_defaults = (

Modified: trunk/perl/lib/KinoSearch/Doc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Doc.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Doc.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Doc;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( nfreeze thaw );
use KinoSearch::base qw( KinoSearch::Obj );

use overload

Modified: trunk/perl/lib/KinoSearch/FieldSpec/text.pm
===================================================================
--- trunk/perl/lib/KinoSearch/FieldSpec/text.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/FieldSpec/text.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::FieldSpec::text;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess a_isa_b );
use KinoSearch::base qw( KinoSearch::FieldSpec );
use KinoSearch::Posting::ScorePosting;
use KinoSearch::Search::Similarity;

Modified: trunk/perl/lib/KinoSearch/FieldSpec.pm
===================================================================
--- trunk/perl/lib/KinoSearch/FieldSpec.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/FieldSpec.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::FieldSpec;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );
use KinoSearch::Search::Similarity;


Modified: trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Highlight/HeatMap.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Highlight::HeatMap;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino to_perl );
use KinoSearch::base qw( KinoSearch::Obj );

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KinoSearch/Highlight/HighlightSpan.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Highlight/HighlightSpan.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Highlight/HighlightSpan.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Highlight::HighlightSpan;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Highlight/Highlighter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

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

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KinoSearch/Index/DelDocs.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DelDocs.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/DelDocs.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::DelDocs;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::BitVector );

use KinoSearch::Util::IntMap;

Modified: trunk/perl/lib/KinoSearch/Index/DocReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DocReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/DocReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::DocReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataReader );

use KinoSearch::Util::StringHelper qw( utf8_flag_on );

Modified: trunk/perl/lib/KinoSearch/Index/DocVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DocVector.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/DocVector.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::DocVector;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Index::TermVector;

Modified: trunk/perl/lib/KinoSearch/Index/DocWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/DocWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/DocWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::DocWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataWriter );

use KinoSearch::Util::StringHelper qw( utf8_flag_off utf8_flag_on );

Modified: trunk/perl/lib/KinoSearch/Index/FilePurger.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/FilePurger.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/FilePurger.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::FilePurger;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Index::Snapshot;

Modified: trunk/perl/lib/KinoSearch/Index/IndexFileNames.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/IndexFileNames.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/IndexFileNames.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Index::IndexFileNames;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino );

use KinoSearch::base qw( Exporter );


Modified: trunk/perl/lib/KinoSearch/Index/IndexReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/IndexReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/IndexReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Index::IndexReader;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess a_isa_b );
use KinoSearch::base qw( KinoSearch::Obj );

# Test code will define these as coderefs.

Modified: trunk/perl/lib/KinoSearch/Index/Inverter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/Inverter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/Inverter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::Inverter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Analysis::TokenBatch;

Modified: trunk/perl/lib/KinoSearch/Index/LexCache.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/LexCache.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/LexCache.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::LexCache;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::Lexicon );

1;

Modified: trunk/perl/lib/KinoSearch/Index/LexReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/LexReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/LexReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::LexReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataReader );

use KinoSearch::Index::TermInfo;

Modified: trunk/perl/lib/KinoSearch/Index/LexStepper.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/LexStepper.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/LexStepper.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::LexStepper;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::Stepper );

1;

Modified: trunk/perl/lib/KinoSearch/Index/LexWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/LexWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/LexWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::LexWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataWriter );

1;

Modified: trunk/perl/lib/KinoSearch/Index/Lexicon.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/Lexicon.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/Lexicon.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::Lexicon;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

our %build_sort_cache_args = (

Modified: trunk/perl/lib/KinoSearch/Index/MultiLexicon.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/MultiLexicon.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/MultiLexicon.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::MultiLexicon;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::Lexicon );

use KinoSearch::Index::SegLexicon;

Modified: trunk/perl/lib/KinoSearch/Index/MultiPostingList.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/MultiPostingList.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/MultiPostingList.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::MultiPostingList;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::PostingList );

sub close {

Modified: trunk/perl/lib/KinoSearch/Index/MultiReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/MultiReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/MultiReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::MultiReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::IndexReader );

use KinoSearch::Index::SegReader;

Modified: trunk/perl/lib/KinoSearch/Index/PostingList.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/PostingList.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/PostingList.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::PostingList;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

sub close { shift->abstract_death }

Modified: trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/PostingsWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::PostingsWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataWriter );

use KinoSearch::Index::TermInfo;

Modified: trunk/perl/lib/KinoSearch/Index/SegDataReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegDataReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegDataReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegDataReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegDataWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegDataWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

sub add_doc { shift->abstract_death }

Modified: trunk/perl/lib/KinoSearch/Index/SegInfo.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegInfo.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegInfo.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Index::SegInfo;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino to_perl );
use KinoSearch::base qw( KinoSearch::Obj );

sub add_metadata {

Modified: trunk/perl/lib/KinoSearch/Index/SegLexCache.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegLexCache.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegLexCache.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegLexCache;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::LexCache );

1;

Modified: trunk/perl/lib/KinoSearch/Index/SegLexicon.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegLexicon.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegLexicon.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegLexicon;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::Lexicon );

use KinoSearch::Index::TermInfo;

Modified: trunk/perl/lib/KinoSearch/Index/SegPostingList.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegPostingList.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegPostingList.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegPostingList;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::PostingList );

use KinoSearch::Posting::ScorePosting;

Modified: trunk/perl/lib/KinoSearch/Index/SegReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::IndexReader );

use KinoSearch::Index::LexReader;

Modified: trunk/perl/lib/KinoSearch/Index/SegWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/SegWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::SegWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataWriter );

use KinoSearch::Analysis::TokenBatch;

Modified: trunk/perl/lib/KinoSearch/Index/Snapshot.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/Snapshot.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/Snapshot.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::Snapshot;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Index::SegInfo;

Modified: trunk/perl/lib/KinoSearch/Index/TermInfo.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermInfo.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/TermInfo.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::TermInfo;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj );

1;

Modified: trunk/perl/lib/KinoSearch/Index/TermVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermVector.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/TermVector.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::TermVector;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

sub get_positions { shift->_get_positions->to_arrayref }

Modified: trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/TermVectorsReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::TermVectorsReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataReader );

use KinoSearch::Index::DocVector;

Modified: trunk/perl/lib/KinoSearch/Index/TermVectorsWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/TermVectorsWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Index/TermVectorsWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Index::TermVectorsWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Index::SegDataWriter );

use KinoSearch::Index::DocVector;

Modified: trunk/perl/lib/KinoSearch/InvIndex.pm
===================================================================
--- trunk/perl/lib/KinoSearch/InvIndex.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/InvIndex.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

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

use KinoSearch::Store::FSFolder;

Modified: trunk/perl/lib/KinoSearch/InvIndexer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/InvIndexer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/InvIndexer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::InvIndexer;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess );
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Doc;

Modified: trunk/perl/lib/KinoSearch/Obj/FastObj.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Obj/FastObj.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Obj/FastObj.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Obj::FastObj;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess );
use KinoSearch::base qw( KinoSearch::Obj );

sub init_instance_vars { confess "Can't use inside-out pattern with FastObj" }
@@ -10,7 +10,7 @@
sub ready_get { confess "Can't use inside-out pattern with FastObj" }
sub ready_set { confess "Can't use inside-out pattern with FastObj" }

-sub dump { kdump shift }
+sub dump { kdump(shift) }

1;


Modified: trunk/perl/lib/KinoSearch/Obj.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Obj.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Obj.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Obj;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess reftype to_perl );

# Load a bunch of classes which are needed for anything non-trivial. We load
# them with "require" because they are subclasses of Obj and need access to

Modified: trunk/perl/lib/KinoSearch/Posting/MatchPosting.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Posting/MatchPosting.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Posting/MatchPosting.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Posting::MatchPosting;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Posting );

our %instance_vars = (
@@ -11,7 +10,6 @@
);

package KinoSearch::Posting::MatchPostingScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::TermScorer );

1;

Modified: trunk/perl/lib/KinoSearch/Posting/RichPosting.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Posting/RichPosting.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Posting/RichPosting.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Posting::RichPosting;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Posting::ScorePosting );

our %instance_vars = (
@@ -11,7 +10,6 @@
);

package KinoSearch::Posting::RichPostingScorer;
-use KinoSearch::Util::ToolSet;
BEGIN { our @ISA = qw( KinoSearch::Posting::ScorePostingScorer ); }

1;

Modified: trunk/perl/lib/KinoSearch/Posting/ScorePosting.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Posting/ScorePosting.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Posting/ScorePosting.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Posting::ScorePosting;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Posting::MatchPosting );

our %instance_vars = (
@@ -11,7 +10,6 @@
);

package KinoSearch::Posting::ScorePostingScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::TermScorer );

1;

Modified: trunk/perl/lib/KinoSearch/Posting.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Posting.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Posting.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Posting;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::Stepper );

use KinoSearch::Util::MemoryPool;

Modified: trunk/perl/lib/KinoSearch/QueryParser.pm
===================================================================
--- trunk/perl/lib/KinoSearch/QueryParser.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/QueryParser.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::QueryParser;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino );
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Analysis::TokenBatch;

Modified: trunk/perl/lib/KinoSearch/Schema.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Schema.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Schema.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Schema;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess blessed );
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::InvIndex;

Modified: trunk/perl/lib/KinoSearch/Search/ANDQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ANDQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/ANDQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::ANDQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyQuery );

package KinoSearch::Search::ANDCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyCompiler );

use KinoSearch::Search::ANDScorer;

Modified: trunk/perl/lib/KinoSearch/Search/ANDScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ANDScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/ANDScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::ANDScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/Compiler.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Compiler.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Compiler.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

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

our @EXPORT_OK = qw( %highlight_spans_args );

Modified: trunk/perl/lib/KinoSearch/Search/FieldDoc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/FieldDoc.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/FieldDoc.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::FieldDoc;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::ScoreDoc );

1;

Modified: trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/FieldDocCollator.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::FieldDocCollator;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Search/HitCollector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/HitCollector.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/HitCollector.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::HitCollector;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Search/HitQueue.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/HitQueue.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/HitQueue.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::HitQueue;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::PriorityQueue );

use KinoSearch::Search::ScoreDoc;

Modified: trunk/perl/lib/KinoSearch/Search/Hits.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Hits.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Hits.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::Hits;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Search/LeafQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/LeafQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/LeafQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::LeafQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Query );

1;

Modified: trunk/perl/lib/KinoSearch/Search/MatchAllQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/MatchAllQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/MatchAllQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::MatchAllQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Query );

package KinoSearch::Search::MatchAllCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

use KinoSearch::Search::MatchAllScorer;

Modified: trunk/perl/lib/KinoSearch/Search/MatchAllScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/MatchAllScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/MatchAllScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::MatchAllScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/MockScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/MockScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/MockScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Search::MockScorer;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess reftype );
use KinoSearch::base qw( KinoSearch::Search::Scorer );

our %instance_vars = __PACKAGE__->init_instance_vars(

Modified: trunk/perl/lib/KinoSearch/Search/MultiSearcher.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/MultiSearcher.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/MultiSearcher.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Search::MultiSearcher;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino );
use KinoSearch::base qw( KinoSearch::Search::Searchable );

use KinoSearch::Search::HitCollector;

Modified: trunk/perl/lib/KinoSearch/Search/NOTQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/NOTQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/NOTQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::NOTQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyQuery );

package KinoSearch::Search::NOTCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyCompiler );

use KinoSearch::Search::NOTScorer;

Modified: trunk/perl/lib/KinoSearch/Search/NOTScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/NOTScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/NOTScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::NOTScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/NoMatchQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/NoMatchQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/NoMatchQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::NoMatchQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Query );

package KinoSearch::Search::NoMatchCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

use KinoSearch::Search::NoMatchScorer;

Modified: trunk/perl/lib/KinoSearch/Search/NoMatchScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/NoMatchScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/NoMatchScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::NoMatchScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/ORQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ORQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/ORQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::ORQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyQuery );

package KinoSearch::Search::ORCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyCompiler );

use KinoSearch::Search::ORScorer;

Modified: trunk/perl/lib/KinoSearch/Search/ORScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ORScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/ORScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::ORScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

# Inner class. Not a subclass of PriorityQueue.

Modified: trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/PhraseQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Search::PhraseQuery;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_kino );
use KinoSearch::base qw( KinoSearch::Search::Query );

use KinoSearch::Search::TermQuery;
@@ -18,7 +18,6 @@
sub get_terms { shift->_get_terms->to_perl }

package KinoSearch::Search::PhraseCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

1;

Modified: trunk/perl/lib/KinoSearch/Search/PhraseScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/PhraseScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/PhraseScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::PhraseScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/PolyCompiler.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/PolyCompiler.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/PolyCompiler.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::PolyCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

1;

Modified: trunk/perl/lib/KinoSearch/Search/PolyQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/PolyQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/PolyQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::PolyQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Query );

use KinoSearch::Search::PolyCompiler;

Modified: trunk/perl/lib/KinoSearch/Search/Query.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Query.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Query.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Search::Query;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess kerror verify_args );
use KinoSearch::base qw( KinoSearch::Obj );

our %make_compiler_PARAMS = (

Modified: trunk/perl/lib/KinoSearch/Search/RangeQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/RangeQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/RangeQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::RangeQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Query );

package KinoSearch::Search::RangeCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

use KinoSearch::Search::RangeScorer;

Modified: trunk/perl/lib/KinoSearch/Search/RangeScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/RangeScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/RangeScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::RangeScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/RemoteFieldDoc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/RemoteFieldDoc.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/RemoteFieldDoc.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::RemoteFieldDoc;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::ScoreDoc ); # note: not FieldDoc

1;

Modified: trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/RequiredOptionalQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::RequiredOptionalQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyQuery );

package KinoSearch::Search::RequiredOptionalCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::PolyCompiler );

use KinoSearch::Search::RequiredOptionalScorer;

Modified: trunk/perl/lib/KinoSearch/Search/RequiredOptionalScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/RequiredOptionalScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/RequiredOptionalScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::RequiredOptionalScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/ScoreDoc.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::ScoreDoc;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Search/Scorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Scorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Scorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::Scorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Search::Tally;

Modified: trunk/perl/lib/KinoSearch/Search/Searchable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Searchable.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Searchable.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::Searchable;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Search::Hits;

Modified: trunk/perl/lib/KinoSearch/Search/Similarity.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Similarity.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Similarity.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::Similarity;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Search/SortCollector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/SortCollector.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/SortCollector.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::SortCollector;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::TopDocCollector );

use KinoSearch::Search::SortedHitQueue;

Modified: trunk/perl/lib/KinoSearch/Search/SortSpec.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/SortSpec.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/SortSpec.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -5,7 +5,6 @@
use KinoSearch::base qw( KinoSearch::Obj );

package KinoSearch::Search::SortSpec;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Search::FieldDocCollator;

Modified: trunk/perl/lib/KinoSearch/Search/SortedHitQueue.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/SortedHitQueue.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/SortedHitQueue.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::SortedHitQueue;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::HitQueue );

use KinoSearch::Search::FieldDoc;

Modified: trunk/perl/lib/KinoSearch/Search/Tally.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/Tally.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/Tally.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::Tally;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Search/TermQuery.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/TermQuery.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/TermQuery.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Search::TermQuery;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Query );

package KinoSearch::Search::TermCompiler;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Compiler );

use KinoSearch::Search::TermScorer;

Modified: trunk/perl/lib/KinoSearch/Search/TermScorer.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/TermScorer.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/TermScorer.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::TermScorer;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::Scorer );

1;

Modified: trunk/perl/lib/KinoSearch/Search/TopDocCollector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/TopDocCollector.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/TopDocCollector.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::TopDocCollector;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Search::HitCollector );

use KinoSearch::Search::HitQueue;

Modified: trunk/perl/lib/KinoSearch/Search/TopDocs.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Search/TopDocs.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Search/TopDocs.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Search::TopDocs;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Util::VArray;

Modified: trunk/perl/lib/KinoSearch/Searcher.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Searcher.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Searcher.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Searcher;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( a_isa_b confess );
use KinoSearch::base qw( KinoSearch::Search::Searchable );

use KinoSearch::Index::IndexReader;

Modified: trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::CompoundFileReader;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::Folder );

1;

Modified: trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::CompoundFileWriter;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Store/FSFileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FSFileDes.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/FSFileDes.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::FSFileDes;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::FileDes );

1;

Modified: trunk/perl/lib/KinoSearch/Store/FSFolder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FSFolder.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/FSFolder.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::FSFolder;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::Folder );
use File::Spec::Functions qw( rel2abs );
use KinoSearch::Util::Compat::DirManip;

Modified: trunk/perl/lib/KinoSearch/Store/FileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FileDes.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/FileDes.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::FileDes;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

sub new { shift->abstract_death }

Modified: trunk/perl/lib/KinoSearch/Store/Folder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/Folder.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/Folder.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::Folder;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use File::Spec::Functions qw( rel2abs );

Modified: trunk/perl/lib/KinoSearch/Store/InStream.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/InStream.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/InStream.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -3,7 +3,6 @@

package KinoSearch::Store::InStream;
use KinoSearch::base qw( KinoSearch::Obj );
-use KinoSearch::Util::ToolSet;

use KinoSearch::Store::FSFileDes;
use KinoSearch::Store::RAMFileDes;

Modified: trunk/perl/lib/KinoSearch/Store/Lock.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/Lock.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/Lock.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::Lock;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Util::Json;

Modified: trunk/perl/lib/KinoSearch/Store/LockFactory.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/LockFactory.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/LockFactory.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::LockFactory;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

use KinoSearch::Store::Lock;

Modified: trunk/perl/lib/KinoSearch/Store/OutStream.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/OutStream.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/OutStream.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::OutStream;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::RAMFileDes;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::FileDes );

use KinoSearch::Util::ByteBuf;

Modified: trunk/perl/lib/KinoSearch/Store/RAMFolder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/RAMFolder.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/RAMFolder.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::RAMFolder;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::Folder );
use File::Spec::Functions qw( rel2abs );


Modified: trunk/perl/lib/KinoSearch/Store/SharedLock.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/SharedLock.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/SharedLock.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::SharedLock;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::Lock );

1;

Modified: trunk/perl/lib/KinoSearch/Store/ViewFileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/ViewFileDes.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Store/ViewFileDes.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Store::ViewFileDes;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Store::RAMFileDes );

1;

Modified: trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Test/TestQueryParser.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Test::TestQueryParser;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl );
use KinoSearch::base qw( KinoSearch::Obj Exporter );
our @EXPORT_OK = qw( doc_set );


Modified: trunk/perl/lib/KinoSearch/Test/TestQueryParserLogic.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/TestQueryParserLogic.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Test/TestQueryParserLogic.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Test::TestQueryParserLogic;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl );
use KinoSearch::base qw( KinoSearch::Obj Exporter );
our @EXPORT_OK = qw( logical_tests prune_tests );


Modified: trunk/perl/lib/KinoSearch/Test/TestQueryParserSyntax.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/TestQueryParserSyntax.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Test/TestQueryParserSyntax.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Test::TestQueryParserSyntax;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl );
use KinoSearch::base qw( KinoSearch::Obj Exporter );
our @EXPORT_OK = qw( leaf_tests syntax_tests );


Modified: trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Test/Util/BBSortEx.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,11 +2,9 @@
use warnings;

package KinoSearch::Test::Util::BBSortEx;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::SortExternal );

package KinoSearch::Test::Util::BBSortExRun;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::SortExRun );

1;

Modified: trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Test/Util/TestCharBuf.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Test::Util::TestCharBuf;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl );
use KinoSearch::base qw( KinoSearch::Obj Exporter );
our @EXPORT_OK = qw( vcatf_tests );


Modified: trunk/perl/lib/KinoSearch/Util/BitVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/BitVector.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/BitVector.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::BitVector;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

sub to_arrayref { shift->to_array->to_arrayref }

Modified: trunk/perl/lib/KinoSearch/Util/ByteBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/ByteBuf.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/ByteBuf.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,13 +2,12 @@
use warnings;

package KinoSearch::Util::ByteBuf;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj Exporter );

our @EXPORT_OK = qw( bb_compare bb_less_than ); # testing only

package KinoSearch::Util::ViewByteBuf;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess );
use KinoSearch::base qw( KinoSearch::Util::ByteBuf );

sub new { confess "ViewByteBuf objects can only be created from C." }

Modified: trunk/perl/lib/KinoSearch/Util/CharBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/CharBuf.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/CharBuf.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -19,13 +19,13 @@
}

package KinoSearch::Util::ViewCharBuf;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess );
use KinoSearch::base qw( KinoSearch::Util::CharBuf );

sub new { confess "ViewCharBuf has no public constructor." }

package KinoSearch::Util::ZombieCharBuf;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess );
BEGIN { our @ISA = qw( KinoSearch::Util::ViewCharBuf ); }

sub new { confess "ZombieCharBuf objects can only be created from C." }

Modified: trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Util::Compat::DirManip;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( confess to_kino );
use KinoSearch::base qw( KinoSearch::Obj );
use File::Spec::Functions qw( rel2abs no_upwards );


Modified: trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::DynVirtualTable;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Util::VirtualTable );

sub find_parent_vtable {

Modified: trunk/perl/lib/KinoSearch/Util/Hash.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Hash.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/Hash.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::Hash;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Util/IntMap.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/IntMap.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/IntMap.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::IntMap;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

our %new_PARAMS = ( ints => undef );

Modified: trunk/perl/lib/KinoSearch/Util/Json.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Json.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/Json.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -3,7 +3,7 @@

package KinoSearch::Util::Json;
use KinoSearch::base qw( Exporter );
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl to_kino );

BEGIN {
our @EXPORT_OK = qw(

Modified: trunk/perl/lib/KinoSearch/Util/MemoryPool.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/MemoryPool.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/MemoryPool.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::MemoryPool;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Util/Native.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Native.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/Native.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::Native;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj Exporter );

use KinoSearch::Util::Hash;

Modified: trunk/perl/lib/KinoSearch/Util/Num.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Num.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/Num.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::Num;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

package KinoSearch::Util::PriorityQueue;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl );
use KinoSearch::base qw( KinoSearch::Obj );

sub pop_all { to_perl( shift->_pop_all ) }

Modified: trunk/perl/lib/KinoSearch/Util/SortExRun.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/SortExRun.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/SortExRun.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::SortExRun;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj );

1;

Modified: trunk/perl/lib/KinoSearch/Util/SortExternal.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/SortExternal.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/SortExternal.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::SortExternal;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj );

use KinoSearch::Util::SortExRun;

Modified: trunk/perl/lib/KinoSearch/Util/Stepper.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Stepper.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/Stepper.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::Stepper;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj );

1;

Modified: trunk/perl/lib/KinoSearch/Util/ToolSet.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/ToolSet.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/ToolSet.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -24,7 +24,7 @@
use Storable qw( nfreeze thaw );
use KinoSearch qw( K_DEBUG kdump );

-our @EXPORT = qw(
+our @EXPORT_OK = qw(
carp
croak
cluck

Modified: trunk/perl/lib/KinoSearch/Util/VArray.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/VArray.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/VArray.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::VArray;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj );

1;

Modified: trunk/perl/lib/KinoSearch/Util/VirtualTable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/VirtualTable.pm 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/lib/KinoSearch/Util/VirtualTable.pm 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,6 @@
use warnings;

package KinoSearch::Util::VirtualTable;
-use KinoSearch::Util::ToolSet;
use KinoSearch::base qw( KinoSearch::Obj::FastObj );

1;

Modified: trunk/perl/t/010-verify_args.t
===================================================================
--- trunk/perl/t/010-verify_args.t 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/t/010-verify_args.t 2008-07-27 19:49:38 UTC (rev 3637)
@@ -2,7 +2,7 @@
use warnings;

use Test::More tests => 5;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( verify_args kerror );

my %defaults = ( foo => 'FOO', bar => 'BAR' );


Modified: trunk/perl/t/018-native.t
===================================================================
--- trunk/perl/t/018-native.t 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/t/018-native.t 2008-07-27 19:49:38 UTC (rev 3637)
@@ -6,7 +6,7 @@
use KinoSearch::Util::Native;
use KinoSearch::Util::Hash;
use KinoSearch::Util::ByteBuf;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl to_kino );

my $object = KinoSearch::Util::Native->new();
isa_ok( $object, "KinoSearch::Util::Native" );

Modified: trunk/perl/t/028-sortexrun.t
===================================================================
--- trunk/perl/t/028-sortexrun.t 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/t/028-sortexrun.t 2008-07-27 19:49:38 UTC (rev 3637)
@@ -4,7 +4,7 @@

use KinoSearch::Test::Util::BBSortEx;
use Test::More tests => 5;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl to_kino );

my $letters = KinoSearch::Util::VArray->new( capacity => 26 );
$letters->push( to_kino($_) ) for 'a' .. 'z';

Modified: trunk/perl/t/207-seg_lexicon.t
===================================================================
--- trunk/perl/t/207-seg_lexicon.t 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/t/207-seg_lexicon.t 2008-07-27 19:49:38 UTC (rev 3637)
@@ -27,7 +27,6 @@
use KinoSearch::Index::SegLexicon;
use KinoSearch::Index::LexReader;
use KinoSearch::Index::Snapshot;
-use KinoSearch::Util::ToolSet;

my $folder = KinoSearch::Store::RAMFolder->new;
my $schema = MySchema->new;

Modified: trunk/perl/t/521-remote_field_doc.t
===================================================================
--- trunk/perl/t/521-remote_field_doc.t 2008-07-27 17:41:24 UTC (rev 3636)
+++ trunk/perl/t/521-remote_field_doc.t 2008-07-27 19:49:38 UTC (rev 3637)
@@ -10,7 +10,7 @@

use KinoSearch::Util::VArray;
use KinoSearch::Util::ByteBuf;
-use KinoSearch::Util::ToolSet;
+use KinoSearch::Util::ToolSet qw( to_perl );
use Storable qw( freeze thaw );

my $field_vals = KinoSearch::Util::VArray->new( capacity => 4 );


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