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 <[email protected]> Authored: Tue Feb 9 16:28:46 2016 +0100 Committer: Nick Wellnhofer <[email protected]> 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",
