File Coverage

blib/lib/Sledge/Template/Xslate.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Sledge::Template::Xslate;

use strict;
use warnings;

our $VERSION = '0.09';
our $XSLATE_CACHE_DIR_NAME = 'xslate';

use parent qw(Sledge::Template);

use Text::Xslate;
use File::Basename;
use File::Spec::Memoized;
use Memoize;

memoize('create_xslate');
sub create_xslate{ Text::Xslate->new(@_) } # It is memoized!

sub import {
    my($class, $option) = @_;
    my $pkg = caller(0);

    undef $option unless(defined($option) && ref($option) eq 'HASH');

    no strict 'refs';
    *{"$pkg\::create_template"} = sub {
        my($self, $file) = @_;
        return $class->new($file, $self, $option);
    };
}

sub new {
    my($class, $file, $page, $option) = @_;

    my $config = $page->create_config();

    my $_option = {
        filename    => $file,
        path        => [dirname($file), '.', '/'],
        input_layer => ':encoding(euc-jp)',# Sledge's default encoding is euc-jp (not utf-8)
        suffix      => '.html',
        type        => 'html',
        cache       => 1
    };

    if(defined($option)){
        foreach my $key (keys(%$option)){
            $_option->{$key} = $option->{$key};
        }
    }

    my $self = {
        _options => $_option,
        _params  => {
            config  => $config,
            r       => $page->r,
            session => $page->session,
        }
    };

    bless($self, $class);
}

sub add_associate       { Sledge::Exception::UnimplementedMethod->throw }
sub associate_namespace { Sledge::Exception::UnimplementedMethod->throw }

sub output {
    my $self = shift;
    my $config = $self->{_options};
    my $input  = delete $config->{filename};
    my $cache_dir = $self->{'_params'}->{'config'}->can('cache_dir') ?
        $self->{'_params'}->{'config'}->cache_dir : undef;

    # Template file check
    unless (ref($input) || -e $input) {
        Sledge::Exception::TemplateNotFound->throw(
            "No template file detected: $input",
        );
    }

    # Create object
    my $template = create_xslate($config);

    # Render
    return ((ref $input eq 'SCALAR') ?
            $template->render_string($$input, $self->{_params}):
            $template->render($input, $self->{_params})
	) or Sledge::Exception::TemplateParseError->throw($template->error);
}

1;
__END__