Source

perl-begin / src / tutorials / bad-elements / index.html.wml

#include '../template.wml'

<latemp_subject "Perl Elements to Avoid" />

<latemp_more_keywords "elements, antipatterns, anti, patterns, help, ancient, ancient perl, modern, modern perl, avoid, bad perl, old tutorials, what to avoid" />

<:{
    use IO::All;

    (io->file("../lib/docbook/5/rendered/bad-elements.xhtml")->slurp() =~ s{^#}{\\#}gmrs) > io('-');
}:>