Advanced
Mailing List Archive

Mailing List Archive

  1. Home >
  2. kinosearch>
  3. commits
r3645 - in trunk/perl/lib: . KinoSearch KinoSearch/Obj KinoSearch/Store KinoSearch/Util KinoSearch/Util/Compat
marvin at rectangular
Jul 27, 2008, 5:10 PM
Post #1 of 1 (250 views)
Permalink
Author: creamyg
Date: 2008-07-27 17:10:14 -0700 (Sun, 27 Jul 2008)
New Revision: 3645

Modified:
trunk/perl/lib/KinoSearch.pm
trunk/perl/lib/KinoSearch/Obj.pm
trunk/perl/lib/KinoSearch/Obj/FastObj.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/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/MathUtils.pm
trunk/perl/lib/KinoSearch/Util/MemoryPool.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/VArray.pm
trunk/perl/lib/KinoSearch/Util/VirtualTable.pm
Log:
Kill off custom import for KinoSearch.pm with module name check.


Modified: trunk/perl/lib/KinoSearch/Obj/FastObj.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Obj/FastObj.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Obj/FastObj.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Obj::FastObj );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Obj.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Obj.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Obj.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Obj KinoSearch::Obj::Undefined );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/CompoundFileReader.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::CompoundFileReader );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/CompoundFileWriter.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::CompoundFileWriter );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/FSFileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FSFileDes.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/FSFileDes.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::FSFileDes );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/FSFolder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FSFolder.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/FSFolder.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::FSFolder );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/FileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/FileDes.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/FileDes.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::FileDes );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/Folder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/Folder.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/Folder.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::Folder );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/InStream.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/InStream.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/InStream.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::InStream );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/Lock.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/Lock.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/Lock.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::Lock );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/LockFactory.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/LockFactory.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/LockFactory.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::LockFactory );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/OutStream.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/OutStream.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/OutStream.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::OutStream );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/RAMFileDes.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::RAMFileDes );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/RAMFolder.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/RAMFolder.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/RAMFolder.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::RAMFolder );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Store/SharedLock.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Store/SharedLock.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Store/SharedLock.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Store::SharedLock );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/BitVector.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/BitVector.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/BitVector.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::BitVector );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/ByteBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/ByteBuf.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/ByteBuf.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::ByteBuf KinoSearch::Util::ViewByteBuf );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/CharBuf.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/CharBuf.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/CharBuf.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::CharBuf );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/Compat/DirManip.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::Compat::DirManip );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/DynVirtualTable.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::DynVirtualTable );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/Hash.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Hash.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/Hash.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::Hash );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/IntMap.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/IntMap.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/IntMap.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::IntMap );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/Json.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Json.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/Json.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::Json );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/MathUtils.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/MathUtils.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/MathUtils.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::MathUtils );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/MemoryPool.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/MemoryPool.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/MemoryPool.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::MemoryPool );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/Num.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Num.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/Num.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::Num );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/PriorityQueue.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::PriorityQueue );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/SortExRun.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/SortExRun.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/SortExRun.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::SortExRun );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/SortExternal.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/SortExternal.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/SortExternal.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::SortExternal );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/Stepper.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/Stepper.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/Stepper.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::Stepper );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/VArray.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/VArray.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/VArray.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::VArray );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch/Util/VirtualTable.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Util/VirtualTable.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch/Util/VirtualTable.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -1,4 +1,4 @@
-use KinoSearch qw( KinoSearch::Util::VirtualTable );
+use KinoSearch;

1;


Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-07-27 23:53:18 UTC (rev 3644)
+++ trunk/perl/lib/KinoSearch.pm 2008-07-28 00:10:14 UTC (rev 3645)
@@ -12,6 +12,7 @@
# See the docs for KinoSearch::Util::ToolSet.
BEGIN { XSLoader::load( 'KinoSearch', '0.20_06' ) }

+use KinoSearch::base qw( Exporter );
use KinoSearch::Autobinding;

sub kdump {
@@ -22,72 +23,8 @@
warn $kdumper->Dump;
}

-our %exportables = ( kdump => 1, );
+our @EXPORT_OK = qw( kdump );

-# All of these modules are implemented fully by KinoSearch.xs and
-# KinoSearch.pm.
-#
-# To cut down on load time we don't bother to find their
-# empty .pm files if they are loaded via this syntax:
-#
-# use KinoSearch qw(
-# KinoSearch::Util:CharBuf
-# KinoSearch::Util::Hash
-# ...
-# );
-#
-our %inlined = (
- 'KinoSearch::Obj' => 1,
- 'KinoSearch::Obj::FastObj' => 1,
- 'KinoSearch::Obj::Undefined' => 1,
- 'KinoSearch::Store::CompoundFileReader' => 1,
- 'KinoSearch::Store::CompoundFileWriter' => 1,
- 'KinoSearch::Store::Folder' => 1,
- 'KinoSearch::Store::FSFolder' => 1,
- 'KinoSearch::Store::InStream' => 1,
- 'KinoSearch::Store::Lock' => 1,
- 'KinoSearch::Store::LockFactory' => 1,
- 'KinoSearch::Store::OutStream' => 1,
- 'KinoSearch::Store::RAMFileDes' => 1,
- 'KinoSearch::Store::RAMFolder' => 1,
- 'KinoSearch::Store::SharedLock' => 1,
- 'KinoSearch::Store::ViewFileDes' => 1,
- 'KinoSearch::Util::BitVector' => 1,
- 'KinoSearch::Util::ByteBuf' => 1,
- 'KinoSearch::Util::CharBuf' => 1,
- 'KinoSearch::Util::Compat::DirManip' => 1,
- 'KinoSearch::Util::ViewCharBuf' => 1,
- 'KinoSearch::Util::ZombieCharBuf' => 1,
- 'KinoSearch::Util::DynVirtualTable' => 1,
- 'KinoSearch::Util::Hash' => 1,
- 'KinoSearch::Util::IntMap' => 1,
- 'KinoSearch::Util::Json' => 1,
- 'KinoSearch::Util::MathUtils' => 1,
- 'KinoSearch::Util::MemoryPool' => 1,
- 'KinoSearch::Util::Num' => 1,
- 'KinoSearch::Util::PriorityQueue' => 1,
- 'KinoSearch::Util::SortExRun' => 1,
- 'KinoSearch::Util::SortExternal' => 1,
- 'KinoSearch::Util::Stepper' => 1,
- 'KinoSearch::Util::VArray' => 1,
- 'KinoSearch::Util::VirtualTable' => 1,
-);
-
-sub import {
- my $class = shift;
- my $inheritor = caller(0);
-
- for my $arg (@_) {
- if ( $inlined{$arg} ) {
- # Do nothing, because the module's code is fully loaded already.
- }
- elsif ( $exportables{$arg} ) {
- no strict 'refs';
- *{"$inheritor\::$arg"} = *{ __PACKAGE__ . "::$arg" };
- }
- }
-}
-
{
package KinoSearch::Obj;
use KinoSearch::Util::ToolSet qw( confess reftype to_perl );


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

©2024 GT.net. A Gossamer Threads company.
5th Floor, 455 Granville St., Vancouver, BC V6C 1T1, Canada | Legal