/lib/tpl/wrapper

http://github.com/perlorg/cpanorg · #! · 11 lines · 9 code · 2 blank · 0 comment · 0 complexity · 6470e1efa708844b08a72cb9acf8ff8d MD5 · raw file

  1. [%- content = PROCESS $template;
  2. #USE Dumper; Dumper.dump_html(page template);
  3. IF !template.name.search('.html') OR page.style == 'none';
  4. content;
  5. ELSE;
  6. default_style_template = "style/" _ page.style;
  7. PROCESS $default_style_template;
  8. END;
  9. %]