blob: 658b458435dbdb9d0103b8d06b8c2d7a770faa48 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
package Locale::Maketext::Lexicon::Auto;
$Locale::Maketext::Lexicon::Auto::VERSION = '0.02';
use strict;
=head1 NAME
Locale::Maketext::Lexicon::Auto - Auto fallback lexicon for Maketext
=head1 SYNOPSIS
package Hello::L10N;
use base 'Locale::Maketext';
use Locale::Maketext::Lexicon {
en => ['Auto'],
# ... other languages
};
=head1 DESCRIPTION
This module builds a simple Lexicon hash that contains nothing but
C<( '_AUTO' =E<gt> 1)>, which tells C<Locale::Maketext> that no
localizing is needed -- just use the lookup key as the returned string.
It is especially useful if you're starting to prototype a program, and
do not want to deal with the localization files yet.
=head1 CAVEATS
If the key to C<-E<gt>maketext> begins with a C<_>, C<Locale::Maketext>
will still throw an exception. See L<Locale::Maketext/CONTROLLING LOOKUP
FAILURE> for how to prevent it.
=cut
sub parse {
return { _AUTO => 1 };
}
1;
=head1 SEE ALSO
L<Locale::Maketext>, L<Locale::Maketext::Lexicon>
=head1 AUTHORS
Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>
=head1 COPYRIGHT
Copyright 2002, 2003, 2004 by Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut
|
