Source

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

Full commit
#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" />

<set-var myroot="$(ROOT)" />

<:{
    use IO::All;

    my $root_s = '$' . '(ROOT)';

    (io->file("../lib/docbook/5/rendered/bad-elements.xhtml")->all() =~ s{\Q$root_s\E}{<get-var myroot />}gr =~  s{^#}{\\#}gmrs) > io('-');
}:>