/lib/tpl/wrapper
http://github.com/perlorg/cpanorg · #! · 11 lines · 9 code · 2 blank · 0 comment · 0 complexity · 6470e1efa708844b08a72cb9acf8ff8d MD5 · raw file
- [%- content = PROCESS $template;
- #USE Dumper; Dumper.dump_html(page template);
- IF !template.name.search('.html') OR page.style == 'none';
- content;
- ELSE;
- default_style_template = "style/" _ page.style;
- PROCESS $default_style_template;
- END;
- %]