File Coverage

blib/lib/Locale/Maketext/Extract/Plugin/Xslate.pm

Criterion	Covered	Total	%
statement	48	69	69.5
branch	13	18	72.2
condition	13	26	50.0
subroutine	10	10	100.0
pod	3	4	75.0
total	87	127	68.5

package Locale::Maketext::Extract::Plugin::Xslate;
use strict;
use warnings;
use parent qw(Locale::Maketext::Extract::Plugin::Base);
our $VERSION = '0.0.3';
our $DEBUG = 0;

use Locale::Maketext::Extract;
$Locale::Maketext::Extract::Known_Plugins{xslate} = __PACKAGE__;

use Data::Dumper;

sub file_types {
    qw( tt html );
}

sub new {
    my($class, $args) = @_;
    my $extensions = delete $args->{extensions};
    my $syntax     = delete $args->{syntax} || 'TTears';
    my $self = $class->SUPER::new($extensions);
    eval "use Text::Xslate::Syntax::$syntax;"; ## no critic
    die $@ if $@;
    $self->{xslate_parser} = "Text::Xslate::Syntax::$syntax"->new($args);
    $self;
}

sub extract {
    my($self, $data) = @_;
    my $ast = $self->{xslate_parser}->parse($data);
    $self->walker($ast);
}

my $sp = '';
sub walker {
    my($self, $ast) = @_;
    $ast = [ $ast ] if $ast && ref($ast) eq 'Text::Xslate::Symbol';
    return unless $ast && ref($ast) eq 'ARRAY';

    for my $sym (@{ $ast }) {

        if ($sym->arity eq 'call' && $sym->value eq '(') {
            my $first = $sym->first;
            if ($first && ref($first) eq 'Text::Xslate::Symbol') {
                if ($first->arity eq 'variable' && $first->value eq 'l') {
                    my $second = $sym->second;
                    if ($second && ref($second) eq 'ARRAY' && $second->[0] && ref($second->[0]) eq 'Text::Xslate::Symbol') {
                        my $value = $second->[0];
                        if ($value->arity eq 'literal') {
                            $self->add_entry($value->value, $value->line);
                        }
                    }
                }
            }
        }

        unless ($DEBUG) {
            $self->walker($sym->first);
            $self->walker($sym->second);
            $self->walker($sym->third);
        } else {
            warn "$sp id: " . $sym->id;
            warn "$sp line: " . $sym->line;
            warn "$sp ldp: ". $sym->lbp;
            warn "$sp udp: ". $sym->ubp;
            warn "$sp type: ". $sym->type;

            warn "$sp arity: ". $sym->arity;
            warn "$sp assignment: ". $sym->assignment;
            warn "$sp value: ". $sym->value;

            warn "$sp first: " . $sym->first;
            $sp .= ' ';
            $self->walker($sym->first);
            $sp =~ s/^.//;

            warn "$sp second: " . $sym->second;
            $sp .= ' ';
            $self->walker($sym->second);
            $sp =~ s/^.//;

            warn "$sp third: " . $sym->third;
            $sp .= ' ';
            $self->walker($sym->third);
            $sp =~ s/^.//;

            warn $sp . '----------';
        }
    }
}

1;
__END__