File Coverage

blib/lib/Sledge/Template/ClearSilver/I18N.pm

Criterion	Covered	Total	%
statement	12	51	23.5
branch	0	18	0.0
condition	0	6	0.0
subroutine	4	7	57.1
pod	0	1	0.0
total	16	83	19.2

package Sledge::Template::ClearSilver::I18N;

use strict;
use base qw(Sledge::Template::ClearSilver);
use Encode;

use vars qw($VERSION);
$VERSION = '0.01';

sub output {
    my $self = shift;
    my $input = $self->{_options}->{filename};
    unless (-e $input) {
        Sledge::Exception::TemplateNotFound->throw(
            "$input: No template file detected. Check your template path.",
        );
    }
    my $hdf = $self->_create_hdf;
    my $cs = ClearSilver::CS->new($hdf);
    unless ($cs->parseFile($input)) {
        Sledge::Exception::TemplateParseError->throw(
            $input.': Parse Error.'
        );
    }
    my $output = $cs->render();
    return Encode::decode('utf-8',$output);
}

sub _create_hdf {
    my $self = shift;
    local $Sledge::Template::NSSepChar = '.';
    $self->_associate_dump;
    my $hdf = ClearSilver::HDF->new;
    # set loadpath
    _hdf_setValue($hdf, 'hdf.loadpaths', $self->{_options}->{loadpaths});
    # read HDF Dataset files
    for my $path (@{$self->{_options}->{hdfpaths}}) {
        my $ret = $hdf->readFile($path);
        unless ($ret) {
            Sledge::Exception::TemplateParseError->throw(
                "$path: Parse Error. Couldn't create HDF Dataset."
            );
        }
    }
    # set params
    while (my ($key, $val) = each %{$self->{_params}}) {
       _hdf_setValue($hdf, $key, $val);
    }
    # set associate
    for my $assoc (@{$self->{_options}->{associate}}) {
        _hdf_setValue($hdf, $_, $assoc->param($_)) for $assoc->param;
   }
    $hdf;
}

sub _hdf_setValue {
    my ($hdf, $key, $val) = @_;
    if (ref $val eq 'ARRAY') {
        my $index = 0;
        for my $v (@$val) {
            _hdf_setValue($hdf, $key.'.'.$index, $v);
            $index++;
        }
    } elsif (ref $val eq 'HASH') {
        while (my ($k, $v) = each %$val) {
            _hdf_setValue($hdf, $key.'.'.$k, $v);
        }
    } elsif (ref $val eq 'SCALAR') {
        _hdf_setValue($hdf, $key, $$val);
    } elsif (ref $val eq '' && $key && $val) {
        Encode::_utf8_on($key) unless Encode::is_utf8($key);
        Encode::_utf8_on($val) unless Encode::is_utf8($val);
        $hdf->setValue($key, $val);
    }
}

1;
__END__