File Coverage

lib/Jinja2/TT2.pm

Criterion	Covered	Total	%
statement	25	38	65.7
branch	2	6	33.3
condition	1	2	50.0
subroutine	8	9	88.8
pod	3	3	100.0
total	39	58	67.2

package Jinja2::TT2;

use strict;
use warnings;
use v5.20;

use Jinja2::TT2::Tokenizer;
use Jinja2::TT2::Parser;
use Jinja2::TT2::Emitter;

our $VERSION = '0.01';

sub new {
    my ($class, %opts) = @_;
    return bless {
        tokenizer => Jinja2::TT2::Tokenizer->new(),
        parser    => Jinja2::TT2::Parser->new(),
        emitter   => Jinja2::TT2::Emitter->new(%opts),
        debug     => $opts{debug} // 0,
    }, $class;
}

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

    # Step 1: Tokenize
    my @tokens = $self->{tokenizer}->tokenize($template);

    if ($self->{debug}) {
        say STDERR "=== TOKENS ===";
        for my $tok (@tokens) {
            say STDERR "  [$tok->{type}] '$tok->{value}'";
        }
    }

    # Step 2: Parse into AST
    my $ast = $self->{parser}->parse(\@tokens);

    if ($self->{debug}) {
        require Data::Dumper;
        say STDERR "=== AST ===";
        say STDERR Data::Dumper::Dumper($ast);
    }

    # Step 3: Emit TT2
    return $self->{emitter}->emit($ast);
}

sub transpile_file {
    my ($self, $filename) = @_;

    open my $fh, '<:encoding(UTF-8)', $filename
        or die "Cannot open '$filename': $!";
    my $template = do { local $/; <$fh> };
    close $fh;

    return $self->transpile($template);
}

1;

__END__