From: Brandon L. Black <blblack@gmail.com>
Date: Tue, 8 Aug 2006 13:53:55 +0000 (+0000)
Subject: adding draft of pod index generator based on zby script
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=55a55d310873315d4ecf6eb03d89c66c82340907;p=dbsrgits%2FDBIx-Class-Historic.git

adding draft of pod index generator based on zby script
---

diff --git a/maint/gen-pod-index.pl b/maint/gen-pod-index.pl
new file mode 100755
index 0000000..9d2fbe6
--- /dev/null
+++ b/maint/gen-pod-index.pl
@@ -0,0 +1,64 @@
+#!/usr/bin/perl -w
+
+# Originally by: Zbigniew Lukasiak, C<zz bb yy@gmail.com>
+#  but refactored and modified to our nefarious purposes
+
+# XXX I'm not done refactoring this yet --blblack
+
+use strict;
+use warnings;
+
+use Pod::Coverage;
+use Data::Dumper;
+use File::Find::Rule;
+use File::Slurp;
+use Path::Class;
+use Template;
+
+# Convert filename to package name
+sub getpac {
+    my $file = shift;
+    my $filecont = read_file( $file );
+    $filecont =~ /package\s*(.*?);/s or return;
+    my $pac = $1;
+    $pac =~ /\s+(.*)$/;
+    return $1;
+}
+
+my @files = File::Find::Rule->file()->name('*.pm', '*.pod')->in('lib');
+
+my %docsyms;
+for my $file (@files){
+    my $package = getpac( $file ) or next;
+    my $pc = Pod::Coverage->new(package => $package);
+    my %allsyms = map {$_ => 1} $pc->_get_syms($package);
+    my $podarr = $pc->_get_pods();
+    next if !$podarr;
+    for my $sym (@{$podarr}){
+        $docsyms{$sym}{$package} = $file if $allsyms{$sym};
+    }
+}
+
+my @lines;
+for my $sym (sort keys %docsyms){
+    for my $pac (sort keys %{$docsyms{$sym}}){
+        push @lines, {symbol => $sym, package => $pac};
+    }
+}
+
+my $tt = Template->new({})
+|| die Template->error(), "\n";
+
+$tt->process(\*DATA, { lines => \@lines })
+|| die $tt->error(), "\n";
+
+
+__DATA__
+
+=head1 NAME
+
+Method Index
+
+[% FOR line = lines %]
+L<[% line.symbol %] ([% line.package %])|[% line.package %]/[% line.symbol %]>
+[% END %]