File Coverage

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

Criterion	Covered	Total	%
statement	20	33	60.6
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	26	39	66.6

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

# ABSTRACT: Generic template parser


sub file_types {
    return qw( * );
}

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

    my $line = 1;

    # Generic Template:
    $line = 1;
    pos($_) = 0;
    while (m/\G(.*?(?
        my ( $vars, $str ) = ( '', $2 );
        $line += ( () = ( $1 =~ /\n/g ) );    # cryptocontext!
        $self->add_entry( $str, $line, $vars );
    }

    my $quoted
        = '(\')([^\\\']*(?:\\.[^\\\']*)*)(\')|(\")([^\\\"]*(?:\\.[^\\\"]*)*)(\")';

    # Comment-based mark: "..." # loc
    $line = 1;
    pos($_) = 0;
    while (m/\G(.*?($quoted)[\}\)\],;]*\s*\#\s*loc\s*$)/smog) {
        my $str = substr( $2, 1, -1 );
        $line += ( () = ( $1 =~ /\n/g ) );    # cryptocontext!
        $str =~ s/\\(["'])/$1/g;
        $self->add_entry( $str, $line, '' );
    }

    # Comment-based pair mark: "..." => "..." # loc_pair
    $line = 1;
    pos($_) = 0;
    while (m/\G(.*?(\w+)\s*=>\s*($quoted)[\}\)\],;]*\s*\#\s*loc_pair\s*$)/smg)
    {
        my $key = $2;
        my $val = substr( $3, 1, -1 );
        $line += ( () = ( $1 =~ /\n/g ) );    # cryptocontext!
        $key =~ s/\\(["'])/$1/g;
        $val =~ s/\\(["'])/$1/g;
        $self->add_entry( $val, $line, '' );
    }
}


1;

__END__