[% USE pod; pom = pod.parse_text("\n$content"); UNLESS pom; " ! Pod error: $pod.error\n" | stderr; RETURN; END; FOREACH w = pod.warnings; " ! Pod warning: $w\n" | stderr; END; VIEW v prefix='pod/html/'; BLOCK list; view.print(i) FOREACH i = item; END; END; VIEW vq base=v prefix='pod/html/quote_'; END; PROCESS toc1; v.print(pom); -%] [% BLOCK toc1 %]

Table of Contents

[% #doc.toc %]
[% END %]