Remove Index POD whitelist

Methods that weren't documented in the Perl bindings are made private.


Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/21252a9d
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/21252a9d
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/21252a9d

Branch: refs/heads/master
Commit: 21252a9dbe50f0df5ea4c1cc95a88516b3a28df6
Parents: 7533000
Author: Nick Wellnhofer <wellnho...@aevum.de>
Authored: Thu Aug 20 22:31:03 2015 +0200
Committer: Nick Wellnhofer <wellnho...@aevum.de>
Committed: Sun Aug 23 15:02:56 2015 +0200

----------------------------------------------------------------------
 core/Lucy/Index/DataReader.cfh            |   2 +-
 core/Lucy/Index/DeletionsReader.cfh       |   4 +-
 core/Lucy/Index/DeletionsWriter.cfh       |  10 +-
 core/Lucy/Index/DocReader.cfh             |   4 +-
 core/Lucy/Index/HighlightReader.cfh       |   4 +-
 core/Lucy/Index/IndexManager.cfh          |  32 +++---
 core/Lucy/Index/IndexReader.cfh           |   2 +-
 core/Lucy/Index/Indexer.cfh               |   2 +-
 core/Lucy/Index/Lexicon.cfh               |   4 +-
 core/Lucy/Index/LexiconReader.cfh         |   4 +-
 core/Lucy/Index/PolyReader.cfh            |   2 +-
 core/Lucy/Index/PostingListReader.cfh     |   2 +-
 core/Lucy/Index/RawLexicon.cfh            |   2 +-
 core/Lucy/Index/SegLexicon.cfh            |   2 +-
 core/Lucy/Index/SegReader.cfh             |   2 +-
 core/Lucy/Index/Segment.cfh               |   4 +-
 core/Lucy/Index/Similarity.cfh            |  14 +--
 core/Lucy/Index/SortReader.cfh            |   2 +-
 perl/buildlib/Lucy/Build/Binding/Index.pm | 142 -------------------------
 19 files changed, 49 insertions(+), 191 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/DataReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/DataReader.cfh b/core/Lucy/Index/DataReader.cfh
index 38d6259..ce40f04 100644
--- a/core/Lucy/Index/DataReader.cfh
+++ b/core/Lucy/Index/DataReader.cfh
@@ -91,7 +91,7 @@ public class Lucy::Index::DataReader inherits Clownfish::Obj {
      * performed upon either the reader or any component subreaders other than
      * object destruction.
      */
-    public abstract void
+    abstract void
     Close(DataReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/DeletionsReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/DeletionsReader.cfh 
b/core/Lucy/Index/DeletionsReader.cfh
index c1db617..8826739 100644
--- a/core/Lucy/Index/DeletionsReader.cfh
+++ b/core/Lucy/Index/DeletionsReader.cfh
@@ -59,7 +59,7 @@ class Lucy::Index::PolyDeletionsReader nickname PolyDelReader
     incremented Matcher*
     Iterator(PolyDeletionsReader *self);
 
-    public void
+    void
     Close(PolyDeletionsReader *self);
 
     public void
@@ -89,7 +89,7 @@ class Lucy::Index::DefaultDeletionsReader nickname 
DefDelReader
     nullable BitVector*
     Read_Deletions(DefaultDeletionsReader *self);
 
-    public void
+    void
     Close(DefaultDeletionsReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/DeletionsWriter.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/DeletionsWriter.cfh 
b/core/Lucy/Index/DeletionsWriter.cfh
index e1e4795..6363a27 100644
--- a/core/Lucy/Index/DeletionsWriter.cfh
+++ b/core/Lucy/Index/DeletionsWriter.cfh
@@ -58,7 +58,7 @@ public abstract class Lucy::Index::DeletionsWriter nickname 
DelWriter
 
     /** Delete the document identified in the PolyReader by the supplied id.
      */
-    public abstract void
+    abstract void
     Delete_By_Doc_ID(DeletionsWriter *self, int32_t doc_id);
 
     /** Returns true if there are updates that need to be written.
@@ -76,7 +76,7 @@ public abstract class Lucy::Index::DeletionsWriter nickname 
DelWriter
      * With an offset of 1000, the array in the previous example would be
      * { 1001, 0, 1002, 1003 }.
      */
-    public incremented I32Array*
+    incremented I32Array*
     Generate_Doc_Map(DeletionsWriter *self, Matcher *deletions,
                      int32_t doc_max, int32_t offset);
 
@@ -84,7 +84,7 @@ public abstract class Lucy::Index::DeletionsWriter nickname 
DelWriter
      * a component within the PolyReader that was supplied at
      * construction-time.
      */
-    public abstract incremented nullable Matcher*
+    abstract incremented nullable Matcher*
     Seg_Deletions(DeletionsWriter *self, SegReader *seg_reader);
 
     /** Return the number of deletions for a given segment.
@@ -130,13 +130,13 @@ class Lucy::Index::DefaultDeletionsWriter nickname 
DefDelWriter
     public void
     Delete_By_Query(DefaultDeletionsWriter *self, Query *query);
 
-    public void
+    void
     Delete_By_Doc_ID(DefaultDeletionsWriter *self, int32_t doc_id);
 
     public bool
     Updated(DefaultDeletionsWriter *self);
 
-    public incremented nullable Matcher*
+    incremented nullable Matcher*
     Seg_Deletions(DefaultDeletionsWriter *self, SegReader *seg_reader);
 
     public int32_t

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/DocReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/DocReader.cfh b/core/Lucy/Index/DocReader.cfh
index 8de9c6e..5a608dc 100644
--- a/core/Lucy/Index/DocReader.cfh
+++ b/core/Lucy/Index/DocReader.cfh
@@ -62,7 +62,7 @@ class Lucy::Index::PolyDocReader inherits 
Lucy::Index::DocReader {
     public incremented HitDoc*
     Fetch_Doc(PolyDocReader *self, int32_t doc_id);
 
-    public void
+    void
     Close(PolyDocReader *self);
 
     public void
@@ -92,7 +92,7 @@ class Lucy::Index::DefaultDocReader nickname DefDocReader
     void
     Read_Record(DefaultDocReader *self, ByteBuf *buffer, int32_t doc_id);
 
-    public void
+    void
     Close(DefaultDocReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/HighlightReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/HighlightReader.cfh 
b/core/Lucy/Index/HighlightReader.cfh
index d6cef6d..101bbd2 100644
--- a/core/Lucy/Index/HighlightReader.cfh
+++ b/core/Lucy/Index/HighlightReader.cfh
@@ -52,7 +52,7 @@ class Lucy::Index::PolyHighlightReader nickname PolyHLReader
     public incremented DocVector*
     Fetch_Doc_Vec(PolyHighlightReader *self, int32_t doc_id);
 
-    public void
+    void
     Close(PolyHighlightReader *self);
 
     public void
@@ -86,7 +86,7 @@ class Lucy::Index::DefaultHighlightReader nickname DefHLReader
     Read_Record(DefaultHighlightReader *self, int32_t doc_id,
                 ByteBuf *buffer);
 
-    public void
+    void
     Close(DefaultHighlightReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/IndexManager.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/IndexManager.cfh b/core/Lucy/Index/IndexManager.cfh
index 7a16231..05a22b4 100644
--- a/core/Lucy/Index/IndexManager.cfh
+++ b/core/Lucy/Index/IndexManager.cfh
@@ -105,45 +105,45 @@ public class Lucy::Index::IndexManager nickname IxManager
     /** Create the Lock which grants permission to delete obsolete snapshot
      * files or any file listed within an existing snapshot file.
      */
-    public incremented Lock*
+    incremented Lock*
     Make_Deletion_Lock(IndexManager *self);
 
-    public incremented Lock*
+    incremented Lock*
     Make_Merge_Lock(IndexManager *self);
 
     /** Write supplied data to "merge.json".  Throw an exception if the write
      * fails.
      */
-    public void
+    void
     Write_Merge_Data(IndexManager *self, int64_t cutoff);
 
     /** Look for the "merge.json" file dropped by BackgroundMerger.  If it's
      * not there, return NULL.  If it's there but can't be decoded, return an
      * empty Hash.  If successfully decoded, return contents.
      */
-    public incremented Hash*
+    incremented Hash*
     Read_Merge_Data(IndexManager *self);
 
-    public bool
+    bool
     Remove_Merge_Data(IndexManager *self);
 
     /** Create a shared lock on a snapshot file, which serves as a proxy for
      * all the files it lists and indicates that they must not be deleted.
      */
-    public incremented Lock*
+    incremented Lock*
     Make_Snapshot_Read_Lock(IndexManager *self, String *filename);
 
     /** Return the highest number for a segment directory which contains a
      * segmeta file in the snapshot.
      */
-    public int64_t
+    int64_t
     Highest_Seg_Num(IndexManager *self, Snapshot *snapshot);
 
     /** Return the name of a new snapshot file, which shall contain a base-36
      * "generation" embedded inside it greater than the generation of any
      * snapshot file currently in the index folder.
      */
-    public incremented String*
+    incremented String*
     Make_Snapshot_Filename(IndexManager *self);
 
     /** Setter for write lock timeout.  Default: 1000 milliseconds.
@@ -168,42 +168,42 @@ public class Lucy::Index::IndexManager nickname IxManager
 
     /** Setter for merge lock timeout.  Default: 0 milliseconds (no retries).
      */
-    public void
+    void
     Set_Merge_Lock_Timeout(IndexManager *self, uint32_t timeout);
 
     /** Getter for merge lock timeout.
      */
-    public uint32_t
+    uint32_t
     Get_Merge_Lock_Timeout(IndexManager *self);
 
     /** Setter for merge lock retry interval.  Default: 1000 milliseconds.
      */
-    public void
+    void
     Set_Merge_Lock_Interval(IndexManager *self, uint32_t timeout);
 
     /** Getter for merge lock retry interval.
      */
-    public uint32_t
+    uint32_t
     Get_Merge_Lock_Interval(IndexManager *self);
 
     /** Setter for deletion lock timeout.  Default: 1000 milliseconds.
      */
-    public void
+    void
     Set_Deletion_Lock_Timeout(IndexManager *self, uint32_t timeout);
 
     /** Getter for deletion lock timeout.
      */
-    public uint32_t
+    uint32_t
     Get_Deletion_Lock_Timeout(IndexManager *self);
 
     /** Setter for deletion lock retry interval.  Default: 100 milliseconds.
      */
-    public void
+    void
     Set_Deletion_Lock_Interval(IndexManager *self, uint32_t timeout);
 
     /** Getter for deletion lock retry interval.
      */
-    public uint32_t
+    uint32_t
     Get_Deletion_Lock_Interval(IndexManager *self);
 }
 

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/IndexReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/IndexReader.cfh b/core/Lucy/Index/IndexReader.cfh
index 77c8875..b5c9365 100644
--- a/core/Lucy/Index/IndexReader.cfh
+++ b/core/Lucy/Index/IndexReader.cfh
@@ -113,7 +113,7 @@ public class Lucy::Index::IndexReader nickname IxReader
     public nullable DataReader*
     Fetch(IndexReader *self, String *api);
 
-    public void
+    void
     Close(IndexReader *self);
 
     Hash*

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/Indexer.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/Indexer.cfh b/core/Lucy/Index/Indexer.cfh
index 4ee07ef..36d118c 100644
--- a/core/Lucy/Index/Indexer.cfh
+++ b/core/Lucy/Index/Indexer.cfh
@@ -165,7 +165,7 @@ public class Lucy::Index::Indexer inherits Clownfish::Obj {
 
     /** Accessor for seg_writer member var.
      */
-    public SegWriter*
+    SegWriter*
     Get_Seg_Writer(Indexer *self);
 
     Doc*

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/Lexicon.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/Lexicon.cfh b/core/Lucy/Index/Lexicon.cfh
index 8025c1a..303ce03 100644
--- a/core/Lucy/Index/Lexicon.cfh
+++ b/core/Lucy/Index/Lexicon.cfh
@@ -64,7 +64,7 @@ public class Lucy::Index::Lexicon nickname Lex inherits 
Clownfish::Obj {
     /** Return the number of documents that the current term appears in at
      * least once.  Deleted documents may be included in the count.
      */
-    public abstract int32_t
+    abstract int32_t
     Doc_Freq(Lexicon *self);
 
     /** Return the current term, or [](cfish:@null) if the iterator is not in a
@@ -73,7 +73,7 @@ public class Lucy::Index::Lexicon nickname Lex inherits 
Clownfish::Obj {
     public abstract nullable Obj*
     Get_Term(Lexicon *self);
 
-    public String*
+    String*
     Get_Field(Lexicon *self);
 }
 

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/LexiconReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/LexiconReader.cfh 
b/core/Lucy/Index/LexiconReader.cfh
index 916d70f..85e4c72 100644
--- a/core/Lucy/Index/LexiconReader.cfh
+++ b/core/Lucy/Index/LexiconReader.cfh
@@ -77,7 +77,7 @@ class Lucy::Index::PolyLexiconReader nickname PolyLexReader
     public uint32_t
     Doc_Freq(PolyLexiconReader *self, String *field, Obj *term);
 
-    public void
+    void
     Close(PolyLexiconReader *self);
 
     public void
@@ -110,7 +110,7 @@ class Lucy::Index::DefaultLexiconReader nickname 
DefLexReader
     Fetch_Term_Info(DefaultLexiconReader *self, String *field,
                     Obj *term);
 
-    public void
+    void
     Close(DefaultLexiconReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/PolyReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/PolyReader.cfh b/core/Lucy/Index/PolyReader.cfh
index a118d98..970a309 100644
--- a/core/Lucy/Index/PolyReader.cfh
+++ b/core/Lucy/Index/PolyReader.cfh
@@ -82,7 +82,7 @@ public class Lucy::Index::PolyReader inherits 
Lucy::Index::IndexReader {
     Vector*
     Get_Seg_Readers(PolyReader *self);
 
-    public void
+    void
     Close(PolyReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/PostingListReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/PostingListReader.cfh 
b/core/Lucy/Index/PostingListReader.cfh
index 9bf512c..05cb71a 100644
--- a/core/Lucy/Index/PostingListReader.cfh
+++ b/core/Lucy/Index/PostingListReader.cfh
@@ -71,7 +71,7 @@ class Lucy::Index::DefaultPostingListReader nickname 
DefPListReader
     LexiconReader*
     Get_Lex_Reader(DefaultPostingListReader *self);
 
-    public void
+    void
     Close(DefaultPostingListReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/RawLexicon.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/RawLexicon.cfh b/core/Lucy/Index/RawLexicon.cfh
index 2dcaf7c..ac47a22 100644
--- a/core/Lucy/Index/RawLexicon.cfh
+++ b/core/Lucy/Index/RawLexicon.cfh
@@ -45,7 +45,7 @@ class Lucy::Index::RawLexicon nickname RawLex
     public nullable Obj*
     Get_Term(RawLexicon *self);
 
-    public int32_t
+    int32_t
     Doc_Freq(RawLexicon *self);
 }
 

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/SegLexicon.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/SegLexicon.cfh b/core/Lucy/Index/SegLexicon.cfh
index d152d5c..eb4b682 100644
--- a/core/Lucy/Index/SegLexicon.cfh
+++ b/core/Lucy/Index/SegLexicon.cfh
@@ -68,7 +68,7 @@ class Lucy::Index::SegLexicon nickname SegLex
     public nullable Obj*
     Get_Term(SegLexicon *self);
 
-    public int32_t
+    int32_t
     Doc_Freq(SegLexicon *self);
 
     public bool

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/SegReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/SegReader.cfh b/core/Lucy/Index/SegReader.cfh
index 81b7333..9ba3293 100644
--- a/core/Lucy/Index/SegReader.cfh
+++ b/core/Lucy/Index/SegReader.cfh
@@ -62,7 +62,7 @@ public class Lucy::Index::SegReader inherits 
Lucy::Index::IndexReader {
      * interface implemented by `component`.
      * @param component A DataReader.
      */
-    public void
+    void
     Register(SegReader *self, String *api,
              decremented DataReader *component);
 

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/Segment.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/Segment.cfh b/core/Lucy/Index/Segment.cfh
index f51a0af..c30ed95 100644
--- a/core/Lucy/Index/Segment.cfh
+++ b/core/Lucy/Index/Segment.cfh
@@ -136,7 +136,7 @@ public class Lucy::Index::Segment nickname Seg inherits 
Clownfish::Obj {
 
     /** Write the segdata file.
      */
-    public void
+    void
     Write_File(Segment *self, Folder *folder);
 
     /** Read the segmeta file for this segment.
@@ -144,7 +144,7 @@ public class Lucy::Index::Segment nickname Seg inherits 
Clownfish::Obj {
      * @return true if the file is read and decoded successfully, false
      * otherwise.
      */
-    public bool
+    bool
     Read_File(Segment *self, Folder *folder);
 
     /** Compare by segment number.

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/Similarity.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/Similarity.cfh b/core/Lucy/Index/Similarity.cfh
index 61736df..b3f288c 100644
--- a/core/Lucy/Index/Similarity.cfh
+++ b/core/Lucy/Index/Similarity.cfh
@@ -47,7 +47,7 @@ public class Lucy::Index::Similarity nickname Sim inherits 
Clownfish::Obj {
 
     /** Factory method for creating a Posting.
      */
-    public incremented Posting*
+    incremented Posting*
     Make_Posting(Similarity *self);
 
     /** Factory method for creating a PostingWriter.
@@ -63,7 +63,7 @@ public class Lucy::Index::Similarity nickname Sim inherits 
Clownfish::Obj {
      * freqs, since the more times a doc matches, the more relevant it is
      * likely to be.
      */
-    public float
+    float
     TF(Similarity *self, float freq);
 
     /** Calculate the Inverse Document Frequecy for a term in a given
@@ -72,12 +72,12 @@ public class Lucy::Index::Similarity nickname Sim inherits 
Clownfish::Obj {
      * @param doc_freq The number of documents that the term appears in.
      * @param total_docs The number of documents in the collection.
      */
-    public float
+    float
     IDF(Similarity *self, int64_t doc_freq, int64_t total_docs);
 
     /** Calculate a score factor based on the number of terms which match.
      */
-    public float
+    float
     Coord(Similarity *self, uint32_t overlap, uint32_t max_overlap);
 
     /** Dampen the scores of long documents.
@@ -101,7 +101,7 @@ public class Lucy::Index::Similarity nickname Sim inherits 
Clownfish::Obj {
 
     /** Normalize a Query's weight so that it is comparable to other Queries.
      */
-    public float
+    float
     Query_Norm(Similarity *self, float sum_of_squared_weights);
 
     /** encode_norm and decode_norm encode and decode between 32-bit IEEE
@@ -123,10 +123,10 @@ public class Lucy::Index::Similarity nickname Sim 
inherits Clownfish::Obj {
     public void
     Destroy(Similarity *self);
 
-    public incremented Obj*
+    incremented Obj*
     Dump(Similarity *self);
 
-    public incremented Similarity*
+    incremented Similarity*
     Load(Similarity *self, Obj *dump);
 
     public bool

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/core/Lucy/Index/SortReader.cfh
----------------------------------------------------------------------
diff --git a/core/Lucy/Index/SortReader.cfh b/core/Lucy/Index/SortReader.cfh
index a36db95..98d0a72 100644
--- a/core/Lucy/Index/SortReader.cfh
+++ b/core/Lucy/Index/SortReader.cfh
@@ -57,7 +57,7 @@ class Lucy::Index::DefaultSortReader nickname DefSortReader
     nullable SortCache*
     Fetch_Sort_Cache(DefaultSortReader *self, String *field);
 
-    public void
+    void
     Close(DefaultSortReader *self);
 
     public void

http://git-wip-us.apache.org/repos/asf/lucy/blob/21252a9d/perl/buildlib/Lucy/Build/Binding/Index.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Index.pm 
b/perl/buildlib/Lucy/Build/Binding/Index.pm
index d587479..cf049ff 100644
--- a/perl/buildlib/Lucy/Build/Binding/Index.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Index.pm
@@ -46,8 +46,6 @@ sub bind_all {
 }
 
 sub bind_backgroundmerger {
-    my @exposed = qw( Commit Prepare_Commit Optimize );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $bg_merger = Lucy::Index::BackgroundMerger->new(
@@ -63,7 +61,6 @@ END_SYNOPSIS
 END_CONSTRUCTOR
     $pod_spec->set_synopsis($synopsis);
     $pod_spec->add_constructor( alias => 'new', sample => $constructor, );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -75,16 +72,6 @@ END_CONSTRUCTOR
 }
 
 sub bind_datareader {
-    my @exposed = qw(
-        Get_Schema
-        Get_Folder
-        Get_Snapshot
-        Get_Segments
-        Get_Segment
-        Get_Seg_Tick
-        Aggregator
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     # Abstract base class.
@@ -100,7 +87,6 @@ END_SYNOPSIS
 END_CONSTRUCTOR
     $pod_spec->set_synopsis($synopsis);
     $pod_spec->add_constructor( alias => 'new', sample => $constructor, );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -112,21 +98,6 @@ END_CONSTRUCTOR
 }
 
 sub bind_datawriter {
-    my @exposed = qw(
-        Add_Inverted_Doc
-        Add_Segment
-        Delete_Segment
-        Merge_Segment
-        Finish
-        Format
-        Metadata
-        Get_Snapshot
-        Get_Segment
-        Get_PolyReader
-        Get_Schema
-        Get_Folder
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<END_SYNOPSIS;
     # Abstract base class.
@@ -140,7 +111,6 @@ END_SYNOPSIS
 END_CONSTRUCTOR
     $pod_spec->set_synopsis($synopsis);
     $pod_spec->add_constructor( alias => 'new', sample => $constructor, );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -152,13 +122,6 @@ END_CONSTRUCTOR
 }
 
 sub bind_deletionswriter {
-    my @exposed = qw(
-        Delete_By_Term
-        Delete_By_Query
-        Updated
-        Seg_Del_Count
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $polyreader  = $del_writer->get_polyreader;
@@ -169,7 +132,6 @@ sub bind_deletionswriter {
     }
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -181,15 +143,12 @@ END_SYNOPSIS
 }
 
 sub bind_docreader {
-    my @exposed = qw( Fetch_Doc Aggregator );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $doc_reader = $seg_reader->obtain("Lucy::Index::DocReader");
     my $doc        = $doc_reader->fetch_doc($doc_id);
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -201,18 +160,6 @@ END_SYNOPSIS
 }
 
 sub bind_indexmanager {
-    my @exposed = qw(
-        Make_Write_Lock
-        Recycle
-        Set_Folder
-        Get_Folder
-        Get_Host
-        Set_Write_Lock_Timeout
-        Get_Write_Lock_Timeout
-        Set_Write_Lock_Interval
-        Get_Write_Lock_Interval
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     use Sys::Hostname qw( hostname );
@@ -241,7 +188,6 @@ END_SYNOPSIS
 END_CONSTRUCTOR
     $pod_spec->set_synopsis($synopsis);
     $pod_spec->add_constructor( alias => 'new', sample => $constructor, );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -253,16 +199,6 @@ END_CONSTRUCTOR
 }
 
 sub bind_indexreader {
-    my @exposed = qw(
-        Doc_Max
-        Doc_Count
-        Del_Count
-        Seg_Readers
-        Offsets
-        Fetch
-        Obtain
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $reader = Lucy::Index::IndexReader->open(
@@ -293,7 +229,6 @@ END_CONSTRUCTOR
         initializer => 'do_open',
         sample      => $constructor,
     );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $xs_code = <<'END_XS_CODE';
 MODULE = Lucy    PACKAGE = Lucy::Index::IndexReader
@@ -330,16 +265,6 @@ END_XS_CODE
 }
 
 sub bind_indexer {
-    my @exposed = qw(
-        Add_Index
-        Optimize
-        Commit
-        Prepare_Commit
-        Delete_By_Term
-        Delete_By_Query
-        Delete_By_Doc_ID
-        Get_Schema
-    );
     my @hand_rolled = qw( Add_Doc );
 
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
@@ -435,7 +360,6 @@ END_ADD_DOC_POD
         alias  => 'add_doc',
         pod    => $add_doc_pod,
     );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $xs_code = <<'END_XS_CODE';
 MODULE = Lucy  PACKAGE = Lucy::Index::Indexer
@@ -516,13 +440,6 @@ END_XS_CODE
 }
 
 sub bind_lexicon {
-    my @exposed = qw(
-        Seek
-        Next
-        Get_Term
-        Reset
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $lex_reader = $seg_reader->obtain('Lucy::Index::LexiconReader');
@@ -532,7 +449,6 @@ sub bind_lexicon {
     }
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -544,15 +460,12 @@ END_SYNOPSIS
 }
 
 sub bind_lexiconreader {
-    my @exposed = qw( Lexicon Doc_Freq );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $lex_reader = $seg_reader->obtain("Lucy::Index::LexiconReader");
     my $lexicon    = $lex_reader->lexicon( field => 'title' );
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -637,14 +550,6 @@ END_XS_CODE
 }
 
 sub bind_postinglist {
-    my @exposed = qw(
-        Next
-        Advance
-        Get_Doc_ID
-        Get_Doc_Freq
-        Seek
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $posting_list_reader 
@@ -658,7 +563,6 @@ sub bind_postinglist {
     }
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -670,8 +574,6 @@ END_SYNOPSIS
 }
 
 sub bind_postinglistreader {
-    my @exposed = qw( Posting_List );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $posting_list_reader 
@@ -682,7 +584,6 @@ sub bind_postinglistreader {
     );
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -714,11 +615,6 @@ END_XS
 }
 
 sub bind_segreader {
-    my @exposed = qw(
-        Get_Seg_Name
-        Get_Seg_Num
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $polyreader = Lucy::Index::IndexReader->open(
@@ -737,7 +633,6 @@ sub bind_segreader {
     }
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -749,15 +644,7 @@ END_SYNOPSIS
 }
 
 sub bind_segwriter {
-    my @exposed = qw(
-        Add_Doc
-        Add_Writer
-        Register
-        Fetch
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -769,18 +656,6 @@ sub bind_segwriter {
 }
 
 sub bind_segment {
-    my @exposed = qw(
-        Add_Field
-        Store_Metadata
-        Fetch_Metadata
-        Field_Num
-        Field_Name
-        Get_Name
-        Get_Number
-        Set_Count
-        Get_Count
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     # Index-time.
@@ -814,7 +689,6 @@ sub bind_segment {
     }
 END_SYNOPSIS
     $pod_spec->set_synopsis($synopsis);
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",
@@ -826,9 +700,6 @@ END_SYNOPSIS
 }
 
 sub bind_similarity {
-    my @exposed = qw(
-        Length_Norm
-    );
     my @hand_rolled = qw( Get_Norm_Decoder );
 
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
@@ -845,7 +716,6 @@ END_SYNOPSIS
     my $constructor = qq|    my \$sim = Lucy::Index::Similarity->new;\n|;
     $pod_spec->set_synopsis($synopsis);
     $pod_spec->add_constructor( alias => 'new', sample => $constructor, );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $xs_code = <<'END_XS_CODE';
 MODULE = Lucy    PACKAGE = Lucy::Index::Similarity
@@ -871,17 +741,6 @@ END_XS_CODE
 }
 
 sub bind_snapshot {
-    my @exposed = qw(
-        List
-        Num_Entries
-        Add_Entry
-        Delete_Entry
-        Read_File
-        Write_File
-        Set_Path
-        Get_Path
-    );
-
     my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
     my $synopsis = <<'END_SYNOPSIS';
     my $snapshot = Lucy::Index::Snapshot->new;
@@ -894,7 +753,6 @@ END_SYNOPSIS
 END_CONSTRUCTOR
     $pod_spec->set_synopsis($synopsis);
     $pod_spec->add_constructor( alias => 'new', sample => $constructor, );
-    $pod_spec->add_method( method => $_, alias => lc($_) ) for @exposed;
 
     my $binding = Clownfish::CFC::Binding::Perl::Class->new(
         parcel     => "Lucy",

Reply via email to