File Coverage

blib/lib/Locale/Utils/Autotranslator/Interactive.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	5	6	83.3
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	46	48	95.8

package Locale::Utils::Autotranslator::Interactive; ## no critic (TidyCode)

use strict;
use warnings;
use Encode qw(decode_utf8);
use Moo;
use namespace::autoclean;

our $VERSION = '1.014';

extends qw(
    Locale::Utils::Autotranslator
);

sub translate_text {
    my ( $self, $msgid ) = @_;

    $self->comment('translated by: interactive');
    () = printf
        "\n"
        . "\n"
        . "========== %s -> %s ==========\n"
        . "%s\n"
        . "========== paste now, press Enter and  D (or line __END__ anywhere) ==========\n",
        $self->developer_language,
        $self->language,
        $msgid;
    my $msgstr = q{};
    LOOP: {
        local $_ = ;
        defined
            or last LOOP;
        m{\A __END__ }xms
            and die $_;
        $msgstr .= $_;
        redo LOOP;
    }

    # normally newline count of msgid and msgstr is equal
    my $newline_count_msgid  = () = $msgid  =~ m{ \x{A} }xmsg;
    my $newline_count_msgstr = () = $msgstr =~ m{ \x{A} }xmsg;
    if ($newline_count_msgstr > $newline_count_msgid) {
        chomp $msgstr;
    }

    # newlines should be equal to msgid
    my ($newline) = $msgid =~ m{ (\r? \n) }xms;
    $newline ||= "\n";
    $msgstr =~ s{\r? \n}{$newline}xmsg;

    return decode_utf8($msgstr);
}

__PACKAGE__->meta->make_immutable;

1;

__END__