You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by nw...@apache.org on 2016/02/11 13:08:01 UTC
[4/7] lucy git commit: Add POD for Analyzer abstract ctor
Add POD for Analyzer abstract ctor
Project: http://git-wip-us.apache.org/repos/asf/lucy/repo
Commit: http://git-wip-us.apache.org/repos/asf/lucy/commit/61d89111
Tree: http://git-wip-us.apache.org/repos/asf/lucy/tree/61d89111
Diff: http://git-wip-us.apache.org/repos/asf/lucy/diff/61d89111
Branch: refs/heads/master
Commit: 61d89111b49157e9cd6419664da26e57ee3ba55c
Parents: bc7b8fc
Author: Nick Wellnhofer <we...@aevum.de>
Authored: Tue Feb 9 16:28:46 2016 +0100
Committer: Nick Wellnhofer <we...@aevum.de>
Committed: Tue Feb 9 16:28:46 2016 +0100
----------------------------------------------------------------------
perl/buildlib/Lucy/Build/Binding/Analysis.pm | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
----------------------------------------------------------------------
http://git-wip-us.apache.org/repos/asf/lucy/blob/61d89111/perl/buildlib/Lucy/Build/Binding/Analysis.pm
----------------------------------------------------------------------
diff --git a/perl/buildlib/Lucy/Build/Binding/Analysis.pm b/perl/buildlib/Lucy/Build/Binding/Analysis.pm
index 22315d1..a17ea38 100644
--- a/perl/buildlib/Lucy/Build/Binding/Analysis.pm
+++ b/perl/buildlib/Lucy/Build/Binding/Analysis.pm
@@ -36,7 +36,23 @@ sub bind_all {
sub bind_analyzer {
my $pod_spec = Clownfish::CFC::Binding::Perl::Pod->new;
+ my $constructor = <<'END_CONSTRUCTOR';
+=head2 new
+
+ package MyAnalyzer;
+ use base qw( Lucy::Analysis::Analyzer );
+ our %foo;
+ sub new {
+ my $self = shift->SUPER::new;
+ my %args = @_;
+ $foo{$$self} = $args{foo};
+ return $self;
+ }
+
+Abstract constructor. Takes no arguments.
+END_CONSTRUCTOR
$pod_spec->set_synopsis(" # Abstract base class.\n");
+ $pod_spec->add_constructor( pod => $constructor );
my $binding = Clownfish::CFC::Binding::Perl::Class->new(
parcel => "Lucy",