use v6-alpha;
###########################################################################
###########################################################################
# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
# This group of strings is generic and can be used by any package:
'LKT_ARG_UNDEF'
=> q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
'LKT_ARG_NO_ARY'
=> q[<CLASS>.<METH>(): argument <ARG> is not an Array object,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_NO_HASH'
=> q[<CLASS>.<METH>(): argument <ARG> is not a Hash object,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_NO_EXP_TYPE'
=> q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_ARY_ELEM_UNDEF'
=> q[<CLASS>.<METH>(): argument <ARG> is an Array object as expected,]
~ q[ but one of its elements is undefined.],
'LKT_ARG_ARY_ELEM_NO_ARY'
=> q[<CLASS>.<METH>(): argument <ARG> is an Array object as expected,]
~ q[ but one of its elements is not an Array object,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_ARY_ELEM_NO_HASH'
=> q[<CLASS>.<METH>(): argument <ARG> is an Array object as expected,]
~ q[ but one of its elements is not a Hash object,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
=> q[<CLASS>.<METH>(): argument <ARG> is an Array object as expected,]
~ q[ but one of its elements is not a <EXP_TYPE>,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_HASH_VAL_UNDEF'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but the value for its '<KEY>' key is undefined.],
'LKT_ARG_HASH_VAL_NO_ARY'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but the value for its '<KEY>' key is not an Array object,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_HASH_VAL_NO_HASH'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but the value for its '<KEY>' key is not a Hash object,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
~ q[ but rather contains '<VAL>'.],
'LKT_ARG_ARY_NO_ELEMS'
=> q[<CLASS>.<METH>(): argument <ARG> is an Array object as expected,]
~ q[ but it has no elements.],
'LKT_ARG_HASH_NO_ELEMS'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but it has no elements.],
'LKT_ARG_EMP_STR'
=> q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
'LKT_ARG_ARY_ELEM_EMP_STR'
=> q[<CLASS>.<METH>(): argument <ARG> is an Array object as expected,]
~ q[ but one of its elements is an empty string.],
'LKT_ARG_HASH_KEY_EMP_STR'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but one of its keys is an empty string.],
'LKT_ARG_HASH_VAL_EMP_STR'
=> q[<CLASS>.<METH>(): argument <ARG> is a Hash object as expected,]
~ q[ but the value for its '<KEY>' key is an empty string.],
# This group of strings is specific to Locale::KeyedText itself:
'LKT_T_FAIL_LOAD_TMPL_MOD'
=> q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
~ q[ module '<TMPL_MOD_NAME>': <REASON>],
'LKT_T_FAIL_GET_TMPL_TEXT'
=> q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
~ q[ <REASON>],
);
###########################################################################
###########################################################################
module Locale::KeyedText::L::en-1.0.2 {
sub get_text_by_key (Str $msg_key!) returns Str {
return %TEXT_STRINGS{$msg_key};
}
} # module Locale::KeyedText::L::en
###########################################################################
###########################################################################
=pod
=encoding utf8
=head1 NAME
Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English
=head1 VERSION
This document describes Locale::KeyedText::L::en version 1.0.2.
=head1 SYNOPSIS
I<This documentation is pending.>
=head1 DESCRIPTION
I<This documentation is pending.>
=head1 INTERFACE
I<This documentation is pending; this section may also be split into several.>
=head1 DIAGNOSTICS
I<This documentation is pending.>
=head1 CONFIGURATION AND ENVIRONMENT
I<This documentation is pending.>
=head1 DEPENDENCIES
This file requires any version of Perl 6.x.y that is at least 6.0.0.
=head1 INCOMPATIBILITIES
None reported.
=head1 SEE ALSO
Go to L<Locale::KeyedText> for the majority of references.
=head1 BUGS AND LIMITATIONS
I<This documentation is pending.>
=head1 AUTHOR
Darren R. Duncan (C<perl@DarrenDuncan.net>)
=head1 LICENCE AND COPYRIGHT
This file is part of the Locale::KeyedText library.
Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.
See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.
=head1 ACKNOWLEDGEMENTS
The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.
=cut