The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Locale-Utils-Autotranslator-1.016
River stage zero No dependents
1 ++
/ Locale::Utils::Autotranslator::Interactive

NAME

Locale::Utils::Autotranslator::Interactive - Interface for manual translation with copy/paste

VERSION

1.014

SYNOPSIS

    use Locale::Utils::Autotranslator::Interactive;

    my $obj = Locale::Utils::Autotranslator::Interactive->new(
        language                => 'de',
        # all following parameters are optional
        developer_language      => 'en', # en is the default
        before_translation_code => sub {
            my ( $self, $msgid ) = @_;
            ...
            return 1; # true: translate, false: skip translation
        },
        after_translation_code  => sub {
            my ( $self, $msgid, $msgstr ) = @_;
            ...
            return 1; # true: translate, false: skip translation
        },
    );
    $identical_obj = $obj->translate(
        'mydir/de.pot',
        'mydir/de.po',
    );
    my $translation_count = $obj->translation_count;

DESCRIPTION

Interface for translation by terminal input

Type <ctrl> D to send an EOF. That means end of current translation.

Type __END__ to stop the translation completely. Otherwise the file is stored back after all translations for that file are done. You lost all translations by canceling the program before it writes back the file.

Newlines of msgid are equal to msgid and not equal to operating system.

SUBROUTINES/METHODS

method new

see SYNOPSIS

method translate_text

    $translated = $object->translate_text($untranslated);

EXAMPLE

Inside of this distribution is a directory named example. Run the *.pl files.

DIAGNOSTICS

none

CONFIGURATION AND ENVIRONMENT

none

DEPENDENCIES

Encode

Moo

namespace::autoclean

Locale::Utils::Autotranslator

INCOMPATIBILITIES

not known

BUGS AND LIMITATIONS

not known

SEE ALSO

http://en.wikipedia.org/wiki/Gettext

Locale::TextDomain::OO

AUTHOR

Steffen Winkler

LICENSE AND COPYRIGHT

Copyright (c) 2021, Steffen Winkler <steffenw at cpan.org>. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.