PageRenderTime 29ms CodeModel.GetById 23ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 1ms

/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
 3   #USE Dumper; Dumper.dump_html(page template);
 4
 5   IF !template.name.search('.html') OR page.style == 'none';
 6      content;
 7   ELSE;
 8      default_style_template = "style/" _ page.style;
 9      PROCESS $default_style_template;
10   END;
11%]