File Coverage

blib/lib/Typist/Template.pm

Criterion	Covered	Total	%
statement	18	42	42.8
branch	0	12	0.0
condition	0	3	0.0
subroutine	6	9	66.6
pod	3	3	100.0
total	27	69	39.1

package Typist::Template;
use strict;
use warnings;

use vars qw( $VERSION);
$VERSION = 0.04;

use base qw( Class::ErrorHandler );

use Typist::Builder;
use File::Spec;

sub new { bless {__text => $_[1]}, $_[0] }

sub load {
    my ($class, $file) = @_;
    my @paths =
      ($file, map File::Spec->catfile($_, $file), Typist->instance->tmpl_path);
    my $path;
    for my $p (@paths) {
        $path = $p, last if -e $p && -r _;
    }
    $path = $file unless defined $path;   # let missing file fall to open error.
    local *FH;
    open FH, $path
      or return $class->error(
        Typist->translate("Load of template '[_1]' failed: [_2]", $path, "$!"));
    local $/;
    my $text = ;
    my $tmpl = $class->new($text);
    close FH;
    $tmpl;
}

sub build {
    my $tmpl = shift;
    my ($ctx, $cond) = @_;
    my $tokens = $tmpl->{__tokens};
    my $build  = Typist::Builder->new;
    unless ($tokens) {
        my $text = $tmpl->{__text};
        $tokens = $build->compile($ctx, $text)
          or return
          $tmpl->error(
                    Typist->translate(
                        "Parse error in template '[_1]': [_2]", $tmpl->filename,
                        $build->errstr
                    )
          );
        $tmpl->{__tokens} = $tokens;
    }
    defined(my $res = $build->build($ctx, $tokens, $cond))
      or return
      $tmpl->error(
                   Typist->translate(
                                     "Build error in template '[_1]': [_2]",
                                     $tmpl->filename,
                                     $build->errstr
                   )
      );
    $res;
}

1;

__END__