File Coverage

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

Criterion	Covered	Total	%
statement	12	32	37.5
branch	1	4	25.0
condition	1	3	33.3
subroutine	4	5	80.0
pod	2	2	100.0
total	20	46	43.4

package Locale::Maketext::Extract::Plugin::TextTemplate;
$Locale::Maketext::Extract::Plugin::TextTemplate::VERSION = '1.00';
use strict;
use base qw(Locale::Maketext::Extract::Plugin::Base);

# ABSTRACT: Text::Template format parser


sub file_types {
    return qw( * );
}

sub extract {
    my $self = shift;
    local $_ = shift;

    my $line = 1;
    pos($_) = 0;

    # Text::Template
    if ( $_ =~ /^STARTTEXT$/m and $_ =~ /^ENDTEXT$/m ) {
        require HTML::Parser;
        require Lingua::EN::Sentence;

        {

            package Locale::Maketext::Extract::Plugin::TextTemplate::Parser;
$Locale::Maketext::Extract::Plugin::TextTemplate::Parser::VERSION = '1.00';
our @ISA = 'HTML::Parser';
            *{'text'} = sub {
                my ( $self, $str, $is_cdata ) = @_;
                my $sentences = Lingua::EN::Sentence::get_sentences($str)
                    or return;
                $str =~ s/\n/ /g;
                $str =~ s/^\s+//;
                $str =~ s/\s+$//;
                $self->add_entry( $str, $line );
            };
        }

        my $p = Locale::Maketext::Extract::Plugin::TextTemplate::Parser->new;
        while (m/\G((.*?)^(?:START|END)[A-Z]+$)/smg) {
            my ($str) = ($2);
            $line += ( () = ( $1 =~ /\n/g ) );    # cryptocontext!
            $p->parse($str);
            $p->eof;
        }
        $_ = '';
    }

}


1;

__END__