detecting pod in files?

edwyr has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: detecting pod in files? by xdg (Monsignor) on Aug 17, 2005 at 14:46 UTC
Pod::Find -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply]
Re: detecting pod in files? by davidrw (Prior) on Aug 17, 2005 at 15:18 UTC
You can use the program `podchecker` (see its man page) and check the status code returned on the the shell (2 means no pod found). Looking at its source, it uses the `podchecker()` function from Pod::Checker which returns -1 if no valid pod found. `use Pod::Checker; my $rc = podchecker($filepath, $outputpath, %options); if( $rc > 0 ){ # errors }elsif( $rc < 0 ){ # no pod found }else{ # ok! }` [download]	[reply] [d/l] [select]
Re^2: detecting pod in files? by edwyr (Sexton) on Aug 27, 2005 at 15:08 UTC
The suggestion to use podchecker really helped. Thanks a lot.	[reply]
Re: detecting pod in files? by Ven'Tatsu (Deacon) on Aug 17, 2005 at 14:30 UTC
I wouldn't call it easyer but at the first detection of a pod directive I would set the flag an bail out of the loop instead of searching the rest of the file. It is also posible that a file will not contain '=pod' but still have pod in it. I would use something like this: `my $file = '/tmp/file'; open(IN, "<$file") or die "$0: cannot read file '$file': $!"; my $pod = 0; while (<IN>) { $pod = 1, last if /^=\w/ } #/^=(pod\|head\d\|over\|item\|back\|cut)/ might be more accurate #=begin, =end, and =for are ommited because they would #usualy be ignored by pod2* close(IN); pod2html($file) if $pod;` [download]	[reply] [d/l]
Re^2: detecting pod in files? by brian_d_foy (Abbot) on Aug 17, 2005 at 17:17 UTC
You can't do it this simply. Although a pod directive starts at the beginning of a line with an =, that has to happen when Perl isn't expecting something else. (Curiously, BBEdit gets this wrong too). `# this isn't pod $time =time ;` [download] Or `$string =<<"HERE"; =value =item HERE` [download] You can can't just look for a particular pod directive (such as =pod, in the original post, because it might not show up. Indeed, I have rarely used =pod. There are plenty of Pod modules, so use those instead of rolling your own. :) -- brian d foy <brian@stonehenge.com>	[reply] [d/l] [select]


No such thing as a small change
	PerlMonks