<html><head></head><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px"><div id="yui_3_16_0_ym19_1_1491359492777_28217"><br id="yui_3_16_0_ym19_1_1491359492777_28218"></div><div id="yui_3_16_0_ym19_1_1491359492777_28219">>> On Mar 31, 2017, at 2:41 PM, Michael R. Davis <mrdvt92@yahoo.com> wrote:</div><div id="yui_3_16_0_ym19_1_1491359492777_28220">>> I need to pull the pod NAME for all of my .pm files for a report.  </div><div id="yui_3_16_0_ym19_1_1491359492777_28220">>> There are so many POD this and that's on CPAN that I cannot find </div><div id="yui_3_16_0_ym19_1_1491359492777_28220">>> a pod parser</div><div id="yui_3_16_0_ym19_1_1491359492777_28221"><br></div><div id="yui_3_16_0_ym19_1_1491359492777_28227">> From: Mark Allen <mrallen1@yahoo.com></div><div id="yui_3_16_0_ym19_1_1491359492777_28228">> Sounds like you want https://metacpan.org/pod/Pod::Simple::SimpleTree </div><div id="yui_3_16_0_ym19_1_1491359492777_28228">> or something close to that.</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28229"><br id="yui_3_16_0_ym19_1_1491359492777_28230"></div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28229">Not the cleanest API that I've seen but it works.  I'm still surprised there are no OO pod parsers.</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28229"><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28524">perl -e '</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28525">use strict;</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28526">use warnings;</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28527">use Pod::Simple::SimpleTree;</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28528">use Data::Dumper qw{Dumper};</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28529"><br id="yui_3_16_0_ym19_1_1491359492777_28530"></div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28531">while (my $file=shift) {</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28532">  #print "$file\n"; </div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28533">  my $pod=Pod::Simple::SimpleTree->new->parse_file($file)->root; </div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28534">  #print Dumper($pod);</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28535">  {</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28536">    my @copy = @$pod;</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28537">    while (@copy) {</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28538">      my $object = shift @copy;</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28539">      #print Dumper($object);</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28540">      last if (ref($object) eq "ARRAY" and $object->[0] eq "head1" and $object->[2] eq "NAME");</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28541">    }</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28542">    my $object = shift @copy;</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28543">    my $text   = $object->[2];</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28544">    print "$file - $text\n";</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28545">  }</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28546">}</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28547">' `find -name "*.p?"</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28547"><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28547">This pulls the pod NAME from 2039 Perl files.</div><div dir="ltr" id="yui_3_16_0_ym19_1_1491359492777_28547"><br></div></div></body></html>