Try this, save as
ppselfdoc.PL,
and make sure not to invoke pp with
-f PodStrip :)
#!/usr/bin/perl --
use strict;
use warnings;
use Pod::Html;
use PAR;
if (@ARGV){
print "$_\n" for PAR::read_file( q!script/ppselfdoc.PL!);
} else {
$ENV{PAR_0} ||= File::Spec->rel2abs(__FILE__);
warn "RUNNING pod2html $ENV{PAR_0}\n";
my @html_options = ('--title=My Test');
pod2html $ENV{PAR_0}, @html_options;
}
exit;
=head1 NAME
NAME - ppselfdoc.PL
=head1 SYNOPSIS
print html
ppselfdoc.PL
print sourcecode
ppselfdoc.PL 1
=cut