From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
use Moose;
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};
}
no Moose;
1;