[libcode-tidyall-perl] 32/374: add

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libcode-tidyall-perl.

commit e13f03e2e1b6e1de9fcea2948d18551a8cd3ea18
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Fri Jun 15 23:36:10 2012 -0500

    add
---
 lib/Pod/Weaver/Section/SeeAlsoCodeTidyAll.pm |   38 ++++++++++++++++++++++++++
 weaver.ini                                   |    2 +-
 2 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/lib/Pod/Weaver/Section/SeeAlsoCodeTidyAll.pm b/lib/Pod/Weaver/Section/SeeAlsoCodeTidyAll.pm
new file mode 100644
index 0000000..53472bd
--- /dev/null
+++ b/lib/Pod/Weaver/Section/SeeAlsoCodeTidyAll.pm
@@ -0,0 +1,38 @@
+package Pod::Weaver::Section::SeeAlsoCodeTidyAll;
+use Moose;
+with 'Pod::Weaver::Role::Section';
+
+use Moose::Autobox;
+
+# Add "SEE ALSO: CodeTidyAll"
+
+sub weave_section {
+    my ( $self, $document, $input ) = @_;
+
+    my $idc = $input->{pod_document}->children;
+    for ( my $i = 0 ; $i < $idc->length ; $i++ ) {
+        next unless my $para = $idc->[$i];
+        return
+          if $para->can('command')
+              && $para->command eq 'head1'
+              && $para->content eq 'SEE ALSO';
+    }
+    $document->children->push(
+        Pod::Elemental::Element::Nested->new(
+            {
+                command  => 'head1',
+                content  => 'SEE ALSO',
+                children => [
+                    Pod::Elemental::Element::Pod5::Ordinary->new(
+                        { content => "L<Code::TidyAll|Code::TidyAll>" }
+                    ),
+                ],
+            }
+        ),
+    );
+}
+
+__PACKAGE__->meta->make_immutable;
+
+no Moose;
+1;
diff --git a/weaver.ini b/weaver.ini
index 7a7e35a..27ed0e2 100644
--- a/weaver.ini
+++ b/weaver.ini
@@ -4,6 +4,6 @@
 [Generic / SYNOPSIS]
 [Generic / DESCRIPTION]
 [Leftovers]
-[Generic / SEE ALSO]
+[SeeAlsoCodeTidyAll]
 [Authors]
 [Legal]

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcode-tidyall-perl.git