File Coverage

blib/lib/Dancer/Template/Ctpp2.pm

Criterion	Covered	Total	%
statement	20	38	52.6
branch	1	12	8.3
condition	0	6	0.0
subroutine	7	9	77.7
pod	3	3	100.0
total	31	68	45.5

package Dancer::Template::Ctpp2;

use strict;
use warnings;
use Dancer::Config 'setting';
use Dancer::ModuleLoader;
use Dancer::FileUtils 'path';

use base 'Dancer::Template::Abstract';

our $VERSION = '0.02';

our $_ctpp2;
our %_cfg;

sub default_tmpl_ext {
  return ($_cfg{'use_bytecode'}) ? 'ct2' : 'tmpl';
}


sub init {
    my ($self) = @_;

    die "HTML::CTPP2 is needed by Dancer::Template::Ctpp2"
      unless Dancer::ModuleLoader->load('HTML::CTPP2');

    %_cfg=%{$self->config};
    my $use_bytecode = (defined $_cfg{'compiled'}) ? delete $_cfg{'compiled'} : 0;

    $_ctpp2 = new HTML::CTPP2(
	arg_stack_size      => 1024,
	code_stack_size     => 1024,
	steps_limit         => 1024*1024,
	max_functions       => 1024,
	%_cfg,
    );

    $_cfg{'use_bytecode'} = $use_bytecode;
}

sub render($$$) {
    my ($self, $template, $tokens) = @_;

    die "'$template' is not a regular file"
      if !ref($template) && (!-f $template);

    my $b;

    if ($_cfg{'use_bytecode'}) {
        $b = $_ctpp2->load_bytecode($template);
    } else {
        $b = $_ctpp2->parse_template($template);
    }

    $_ctpp2->reset();
    $_ctpp2->param($tokens);

    my $result  = $_ctpp2->output($b);

    if(length(setting('charset')) && lc setting('charset') eq 'utf-8') {
      return pack "U0C*", unpack "C*", $result;
    } else {
      return $result;
    }

}

1;
__END__