|There's more than one way to do things|
RFC: Pod::Removeby domm (Chaplain)
|on Mar 13, 2003 at 11:09 UTC||Need Help??|
Some comments I'd request very much:
You can download the module from here
From the POD
Pod::Remove - Remove POD from code
use Pod::Remove qw(remove_pod);
# $code is a string containing Perl-code with POD my $podless=remove_pod($code);
# or, without importing: use Pod::Remove;
Pod::Remove removes POD from Perl Code. It accomplishes this by scanning each line of input and removing everything between /^=/ and /^=cut/. Everything after __END__ and __DATA__ is also removed.
Rather simple, but effective.
There is another module doing something similar, Pod::Stripper. Pod::Stripper is based on Pod::Parser, which works mainly on input- and output-streams, i.e. files or filehandles. Which makes it really hard to capture the result in a string. Which is the reason I wrote Pod::Remove.
I might implement some functions to make handling of various types of input easier. But not now.