view release on metacpan or  search on metacpan

lib/App/I18N/Command/Auto.pm  view on Meta::CPAN

    my $to_lang_s = $to_lang;

    # ($from_lang_s) = ( $from_lang  =~ m{^([a-z]+)(_\w+)?} );
    # ($to_lang_s)   = ( $to_lang    =~ m{^([a-z]+)(_\w+)?} );

    $logger->info( "Translating: $from_lang_s => $to_lang_s" );

    $logger->info( "Initialing REST::Google" );
    REST::Google::Translate->http_referer('http://google.com');

    binmode STDERR, ":utf8";
    

NEXT_MSGID:
    for my $i ($ext->msgids()) {
        my $msgid  = $i;
        my $msgstr = $ext->msgstr( $i );

        # skip if no msgstr and no overwrite.
        next if $msgstr && ! $self->{overwrite} && ! $self->{msgstr};

lib/App/I18N/Command/Gen.pm  view on Meta::CPAN

            my %entries = map {   
                # Encode::_utf8_on( $lexicon->{ $_ } );
                my $msgstr = decode_utf8 ( $lexicon->{ $_ } || "" );
                $msgstr
                    ? ( $_ => $msgstr )
                    : () 
                } keys %$lexicon;

            $logger->info( "Writing: $outfile" );
            open FH , ">" , $outfile or die $!;
            # binmode FH,":utf8";
            if( $type eq 'json' ) {
                use JSON::XS;
                print FH encode_json( \%entries );
            }
            elsif ( $type eq 'js' ) {
                use JSON::XS;
                print FH qq|/* $warnings */\n\n|;
                print FH <<END;
var DICT = @{[ encode_json( $lexicon ) ]};
END