Remove Object 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/8323f974 Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/8323f974 Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/8323f974 Branch: refs/heads/master Commit: 8323f974e3811c44facfd5fed4756ed63b9631dd Parents: 21252a9 Author: Nick Wellnhofer <[email protected]> Authored: Thu Aug 20 22:34:58 2015 +0200 Committer: Nick Wellnhofer <[email protected]> Committed: Sun Aug 23 15:02:56 2015 +0200 ---------------------------------------------------------------------- core/Lucy/Object/BitVector.cfh | 2 +- perl/buildlib/Lucy/Build/Binding/Object.pm | 18 ------------------ 2 files changed, 1 insertion(+), 19 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/lucy/blob/8323f974/core/Lucy/Object/BitVector.cfh ---------------------------------------------------------------------- diff --git a/core/Lucy/Object/BitVector.cfh b/core/Lucy/Object/BitVector.cfh index 5359e54..3c01f5e 100644 --- a/core/Lucy/Object/BitVector.cfh +++ b/core/Lucy/Object/BitVector.cfh @@ -94,7 +94,7 @@ public class Lucy::Object::BitVector nickname BitVec * * @param other Another BitVector. */ - public void + void Mimic(BitVector *self, Obj *other); /** Modify the BitVector so that only bits which remain set are those http://git-wip-us.apache.org/repos/asf/lucy/blob/8323f974/perl/buildlib/Lucy/Build/Binding/Object.pm ---------------------------------------------------------------------- diff --git a/perl/buildlib/Lucy/Build/Binding/Object.pm b/perl/buildlib/Lucy/Build/Binding/Object.pm index aa7d536..b29eef9 100644 --- a/perl/buildlib/Lucy/Build/Binding/Object.pm +++ b/perl/buildlib/Lucy/Build/Binding/Object.pm @@ -26,23 +26,6 @@ sub bind_all { } sub bind_bitvector { - my @exposed = qw( - Get - Set - Clear - Clear_All - And - Or - And_Not - Xor - Flip - Flip_Block - Next_Hit - To_Array - Grow - Count - ); - my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new; my $synopsis = <<'END_SYNOPSIS'; my $bit_vec = Lucy::Object::BitVector->new( capacity => 8 ); @@ -59,7 +42,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",
