#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;
use FindBin '$Bin';

#use Tie::IxHash;
use String::Escape qw(backslash);

die "Usage: $0 <lang1> <lang2>\n" unless @ARGV == 2;
my ($lang1, $lang2) = @ARGV;

require "$Bin/../lib/Data/Sah/Lang/$lang1.pm";
require "$Bin/../lib/Data/Sah/Lang/$lang2.pm";

my ($xlt1, $xlt2);
{
    no strict 'refs';
    $xlt1 = \%{"Data::Sah::Lang::$lang1\::translations"};
    $xlt2 = \%{"Data::Sah::Lang::$lang2\::translations"};
}

my @kxlt1 = keys %$xlt1;
my @kxlt2 = keys %$xlt2;

say "Translations in $lang1 not found in $lang2:";
my $found;
for my $k (@kxlt1) {
    next if grep { $k eq $_ } @kxlt2;
    $found++;
    say "q[", backslash($_), "]";
}

exit($found ? 1 : 0);