|
NAMEPod::Stripper - strip all pod, and output what's leftSYNOPSIS$>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); } DESCRIPTIONThis 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. MOTIVATIONI 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" EXPORTSNone. This one be object oriented (at least I'm under the impression that it is).SEE ALSO"Pod::Parser" and Pod::Parser, esp. the "input_*" and "output_*" methodsCAVEATThis 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 perlpod and read Stripper.pm for more information. AUTHORD.H. aka crazyinsomniac|at|yahoo.com.LICENSECopyright (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. PROPSprops to all the perlmonks at perlmonks.org, and especiall danger and the ones who showed interest in Pod::Stripperhttp://perlmonks.org/index.pl?node=Pod::Stripper The Following is more interesting if you read Stripper.pm rawTEST CASE FOLLOWS - NOT POD NOR CODE==head2 HEY THIS POD TOO (REALLy, == is valid, although some parsers might disagree)podchecker will not complain ABTEST print "THIS IS HIDDEN POD";CUThad to make sureI AM INSIDE A HEREDOCWHERE ARE YOU?I AM HIDDEN POD INSIDE A HEREDOC warn "really, I am"BOObut hey, if the pod inside a heredoc gets eaten by a pod parser (as it shoulD) I see no problem hereWELL IF THIS WASN'T AFTER "__END__" "this would still be hidden pod";THIS REALLY IS AN UGLY HACKyes, it is
Visit the GSP FreeBSD Man Page Interface. |