[ Create a new account ]
print <<POD; =head1 NAME name of the generated module POD =head1 NAME name of the script
print <<POD;
=head1 NAME
name of the generated module
POD
name of the script
Guess what happens... :-)
perl
use Filter::Indent::HereDoc; print <<POD; =head1 XXX No Pod here! POD =head1 YYY etc. =cut
sub pod_unindent { ( local $_ = shift ) =~ s/^\s{2}//mg; $_ } print pod_unindent <<END_POD; =head 1 FOO Bar. Baz. =cutEND_POD
-- xoa
Get More Comments
Reply
Re: (Score:1)
perlgetting it right, and the POD parser not so. After all, only the former can parse Perl…Re: (Score:1)
But I decided to upload the thing anyway, just to see how the CPAN deals with it O:-)
Try indenting your here-docs (Score:1)
Re:Try indenting your here-docs (Score:1)
Nice module
This is the kind of thing I'd like to see in the Perl Advent Calendar (hint, hint, coff, coff)
Filter::Indent::HereDoc (Score:2)
Re:Try indenting your here-docs (Score:1)
Check Module::Starter (Score:2)
--
xoa