<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_1490988826118_3737">Houston PMs,</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">I need to pull the pod NAME for all of my .pm files for a report. There are so many POD this and that's on CPAN that I cannot find a pod parser that is simply like this.</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">my $pod = XXX->new(file=>"xxx.pm");</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">my $name = $pod->name; #or $pod->head1("NAME");</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">Where $name would pull the "content" from the pod NAME section.</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">=head1 NAME<br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">content</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">=cut</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">Does anyone have a favorite POD object?<br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">Mike</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr">mrdvt92</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr"><br></div></div></body></html>