Yet Another CPAN Grep

Serge-Sync-Plugin-TranslationService-weblate ( D/DR/DRAGOSV/Serge-Sync-Plugin-TranslationService-weblate-0.900.6.tar.gz, DRAGOSV, 2020; MetaCPAN )

Serge-Sync-Plugin-TranslationService-weblate/lib/Serge/Sync/Plugin/TranslationService/weblate.pm ( view source; MetaCPAN )

Runner;

use strict;

use File::Find qw(find);
use File::Spec::Functions qw(catfile abs2rel);
use JSON -support_by_pp; # -support_by_pp is used to make Perl on Mac happy
use Serge::Util qw(subst_macro

    my $json_components = $self->run_weblate_cli('--format json list-components '.$self->{data}->{project}, 1);

    my $json_components_tree = $self->parse_json($json_components);
    my $json_compon

ents_list = $self->parse_list($json_components_tree);
    my @components = map { $_->{slug} } @$json_components_list;

    my %translations = ();

    my %langs_hash = map { $_ => 1 } @$langs;

    fo