use Perl

• Try indenting your here-docs (Score:1)

  by jj (2990) on 2004.12.17 12:12 (#36898) Homepage Journal

  A workaround might be to indent your here-doc [cpan.org]... e.g

  use Filter::Indent::HereDoc;
  
  print <<POD;
    =head1 XXX
  
    No Pod here!
  
    POD
  
  =head1 YYY
  
  etc.
  
  =cut

  Reply to This

  • Re:Try indenting your here-docs (Score:1)

    by cog (4665)

    I had thought about doing something like that, but I admit I was probably going to reinvent the wheel... again...
    
    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)

    by schwern (1528)

    Whoa, somebody implemented it!
  • Re:Try indenting your here-docs (Score:1)

    by Aristotle (5147)

    I don't know if that needs an entirely module…

    sub pod_unindent { ( local $_ = shift ) =~ s/^\s{2}//mg; $_ }
    
    print pod_unindent <<END_POD;
      =head 1 FOO
    
      Bar. Baz.
    
      =cut
    END_POD