Pod::Stripper - strip all pod, and output what's left |
Pod::Stripper - strip all pod, and output what's left
$>perl Stripper.pm
or
#!/usr/bin/perl -w
use strict; use Pod::Stripper;
my $Stripper = new Pod::Stripper();
$Stripper->parse_from_filehandle(\*STDIN) unless (@ARGV);
for my $ARGV (@ARGV) { $Stripper->parse_from_file($ARGV); }
This be Pod::Stripper
, a subclass of Pod::Parser
. It parses perl files,
stripping out the pod, and dumping the rest (presumably code) to wherever
you point it to (like you do with Pod::Parser
).
You could probably subclass it, but I don't see why.
I basically re-wrote Pod::Stripper
on two separate occasions, and I know
at least 2 other people who'd use it, and thought It'd make a nice addition.
perl -MPod::Stripper -e"Pod::Stripper->new()->parse_from_file(shift)"
Stripper.pm
None. This one be object oriented (at least I'm under the impression that it is).
Pod::Parser
and the Pod::Parser manpage, esp. the input_*
and output_*
methods
This module will correctly strip out get rid of hidden pod,
and preserve hiddencode, but like all pod parsers except perl
,
it will be fooled by pod in heredocs (or things like that).
see the perlpod manpage and read Stripper.pm for more information.
D.H. aka crazyinsomniac|at|yahoo.com.
Copyright (c) 2002 by D.H. aka crazyinsomniac|at|yahoo.com. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
props to all the perlmonks at perlmonks.org, and especiall danger and the ones who showed interest in Pod::Stripper
http://perlmonks.org/index.pl?node=Pod::Stripper
podchecker will not complain
print ``>>>>>>>>>>>>>>> I AM NOT HIDDEN POD. PERL WILL EXECUTE ME'';
had to make sure
WHERE ARE YOU?
print ``AND I AM HIDDEN CODE INSIDE A HEREDOC'';
but hey, if the pod inside a heredoc gets eaten by a pod parser (as it shoulD) I see no problem here
__END__
``this would still be hidden pod'';
=cutprint ``AND THIS WOULD STILL BE HIDDEN CODE'';
yes, it is
Pod::Stripper - strip all pod, and output what's left |