N::Converter;
use 5.006;
use strict;
use warnings;
use Encode;
use Spreadsheet::ParseExcel;
use JSON::XS;
use IO::All -utf8;
use Carp;
=head1 NAME
HON::I18N::Converter - perl I18N Converter
=head
ncodage
my $encoder = JSON::XS->new->ascii->pretty->allow_nonref;
#Parcours d'une table de hachage
foreach my $lang ( keys %{ $self->labels } ) {
my $json = $encoder->encode( { str
self->labels->{$lang} } );
#Intitule de chaque section
$content .= "\$.i18n.$lang = $json;\n";
}
#Derniere ligne du document jQuery
$content .= '})(jQuery);';
$content >