Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

use strict;
our @ISA = qw(Exporter);
our @EXPORT = qw(get_string_encoding_mode);
my %string_encoding_mode = (
'ASCII' => 0,
'UTF8' => 1,
'UTF16' => 2,
'UTF32' => 3
);
sub get_string_encoding_mode {
my ($self, $mode) = @_;
return $string_encoding_mode{$mode};
}
1;