#!/usr/bin/env perl
use strict;
use warnings;
use 5.10.0;

use Log::Report 'default'
use Log::Report::Translator::POT;

my $lex = '/home/abeverley/danceconf/LRDemo/messages';
my $tr = Log::Report::Translator::POT->new(lexicon => $lex);

use Log::Report 'default', translator => $tr;
my $msg = __"I am a warning";
say $msg;
say $tr->translate($msg);


$ LC_MESSAGES=nl_NL.utf8 ./tran.pl
I am a warning
Ich bin eine Warnung

