#!pugs
use v6;

module t_LKT_A_L_Eng;

my Str $xy is readonly = 'AE';
my Str %text_strings is readonly = (
    'one' => $xy ~ q[ - word {fork} { fork } {spoon} {{fork}}],
    'two' => $xy ~ q[ - sky pie rye],
);

sub get_text_by_key (Str $msg_key) returns Str {
    return %text_strings{$msg_key};
}
