[%- default_headers = { meta => { name => { author => 'docs-dev (at) perl.apache.org', keywords => 'mod_perl modperl perl cgi apache webserver speed fast guide mod_perl asf parent apache guide help info faq mod_perl installation cgi troubleshooting help no speedup child process rules free open source OSS mod_perl speed apache guide manual troubleshoot cgi fast apache', classification => 'information', }, 'http-equiv' => { 'Content-Type' => 'text/html; charset=iso-8859-1', }, }, link => "", link_print => "", }; abstract = doc.meta.abstract or "Manuals, Hints, Guidelines, Scenarios, Troubleshooting and Help"; -%] [% IF doc.headers.base -%] [%- END -%] [%- " $l\n" FOREACH l = [ doc.headers.link, default_headers.link, default_headers.link_print ] -%] [%- FOREACH m = ["name", "http-equiv"]; SET merge = {}; merge.import(default_headers.meta.$m); # deep copy merge.import(doc.headers.meta.$m); # merge FOREACH key = merge.keys; %] [%- END; END -%]