File Coverage

blib/lib/MojoX/I18N/Lexemes.pm

Criterion	Covered	Total	%
statement	41	42	97.6
branch	13	16	81.2
condition	21	31	67.7
subroutine	6	6	100.0
pod	1	1	100.0
total	82	96	85.4

package MojoX::I18N::Lexemes;

use strict;
use warnings;

use base 'Mojo::Base';

our $VERSION = 0.994;

use Mojo::Template;
use Mojo::Server;

__PACKAGE__->attr(renderer  => sub { Mojo::Template->new });
__PACKAGE__->attr(helper    => sub {'l'});
__PACKAGE__->attr(helper_re => sub {qr/l\s*(\([^\)]+\))/});

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

    my $mt = $self->renderer;
    $mt->parse($template);

    my $lexemes = [];

    my $multiline = 0;
    my $args      = '';
    foreach my $line (@{$mt->tree}) {
        for (my $j = 0; $j < @{$line}; $j += 2) {
            my $type  = $line->[$j];
            my $value = $line->[$j + 1] || '';
            if ($value){
                $value =~ s/^\s*//;
            }

            if ($multiline) {
                if ($type eq 'expr' || $type eq 'escp' || $type eq 'line') {
                    $args .= $value;
                }
                else {
                    $multiline = 0;
                }
            }
            elsif (($type eq 'expr' or $type eq 'escp')
                && $value
                && substr($value, 0, length($self->helper) + 1) eq
                $self->helper . ' ')
                {

                $args = substr $value, length($self->helper) + 1;

                unless (($line->[$j + 2] || '') eq 'text') {

                    $multiline = 1;
                }

            }
            elsif (($type eq 'expr' or $type eq 'escp')
                && $value
                && $value =~ $self->helper_re)
            {
                $args = $1;
            }

            if ($args && !$multiline) {
                my ($lexem) = (eval $args);
                push @$lexemes, $lexem if $lexem;

                $args = '';
            }

        }
    }
    return $lexemes;
}

1;
__END__