File Coverage

blib/lib/MojoX/Renderer/CTPP2.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package MojoX::Renderer::CTPP2;

use strict;
use warnings;

use base 'Mojo::Base';

use File::Spec ();
use File::Path qw/make_path/;

use Carp        ();
use HTML::CTPP2 ();

our $VERSION = '0.02';

__PACKAGE__->attr('ctpp2');

my %ctpp2_allow_params = map { $_, 1 }
  qw/arg_stack_size code_stack_size steps_limit max_functions source_charset destination_charset/;

sub build {
    my $self = shift->SUPER::new(@_);

    $self->_init_ctpp2(@_);

    return sub { $self->_render(@_) };
}

sub _init_ctpp2 {
    my $self = shift;
    my %args = @_;

    my $mojo = $args{mojo};
    my %config = %{delete $args{template_options} || {}};

    $self->{COMPILE_EXT} ||= '.ctpp2c';

    $self->{CACHE_ENABLE} = 1 if not exists $self->{CACHE_ENABLE};

    unless (exists $self->{COMPILE_DIR}) {
        $self->{COMPILE_DIR} = $mojo ? $mojo->home->rel_dir('tmp/ctpp2') : File::Spec->tmpdir;
    }

    for (keys %config) {
        exists $ctpp2_allow_params{$_} or delete $config{$_};
    }

    $self->ctpp2(HTML::CTPP2->new(%config)) or Carp::croak 'Could not initialize CTPP2 object';

    if (!(ref $args{INCLUDE_PATH} eq 'ARRAY')) {
        my @include_path = _coerce_paths($args{INCLUDE_PATH}, $args{DELIMITER});
        if (!@include_path) {
            @include_path = $mojo ? $mojo->home->rel_dir('templates') : ();
        }
        $args{INCLUDE_PATH} = \@include_path;
    }

    $self->ctpp2->include_dirs(\@{$args{INCLUDE_PATH}});

    return $self;
}

sub _coerce_paths {
    my ($paths, $dlim) = @_;

    return () if (!$paths);
    return @{$paths} if (ref $paths eq 'ARRAY');

    $dlim = ($^O eq 'MSWin32') ? ':(?!\\/)' : ':' unless (defined $dlim);

    return split(/$dlim/, $paths);
}

sub _render {
    my ($self, $renderer, $c, $output, $options) = @_;

    my $ctpp2         = $self->ctpp2;
    my $template_path = $c->stash->{'template_path'} || $renderer->template_path($options);
    my $bytecode      = $self->_get_bytecode($renderer->root, $template_path);

    $ctpp2->param({%{$c->stash}, base => $c->tx->req->url->base->to_string});

    unless ($$output = $ctpp2->output($bytecode)) {
        Carp::carp 'Template error: ['
          . $ctpp2->get_last_error->{'template_name'} . '] - '
          . $ctpp2->get_last_error->{'error_str'};
        return 0;
    }
    else {
        return 1;
    }
}

sub _get_bytecode {
    my ($self, $templates_rootdir, $template) = @_;

    my $ctpp2 = $self->ctpp2;

    if ($self->{CACHE_ENABLE}) {
        my $mojo            = $self->{mojo};
        my $compile_rootdir = $self->{COMPILE_DIR};

        my $template_relpath = File::Spec->abs2rel($template, $templates_rootdir);
        $template_relpath  =~ s{\.[^\.]+$}{};
        $template_relpath .= $self->{COMPILE_EXT};

        my $ctemplate = File::Spec->catfile($compile_rootdir, $template_relpath);

        my $bytecode;
        if (-e $ctemplate) {
            if ((stat($ctemplate))[9] < (stat($template))[9]) {
                $bytecode = $ctpp2->parse_template($template);
                $bytecode->save($ctemplate) if $bytecode;
            }
            else {
                return $ctpp2->load_bytecode($ctemplate);
            }
        }
        else {
            $bytecode = $ctpp2->parse_template($template);

            my $save_path = $ctemplate;
            $save_path =~ s{/[^/]+$}{};

            make_path($save_path) if !-d $save_path;

            $bytecode->save($ctemplate) if $bytecode;
        }
        return $bytecode;
    }
    else {
        $ctpp2->parse_template($template);
    }
}

1;

__END__