NAME
CPAN::Search::Lite::Lang - export some common data structures used by CPAN::Search::Lite::*
DESCRIPTION
This module can be used to populate some common data structures used by other CPAN::Search::Lite::* modules based on a requested language. The translated form of these structures are contained in CPAN::Search::Lite::Lang::*.pm (for example, en.pm or fr.pm). A hash %langs is exported, supplying a list of languages available, as well as a function load, used as
load(
lang
=>
$lang
,
pages
=>
$pages
,
chaps_desc
=>
$chaps_desc
);
which will, for example, take the data structure $pages
and populate $pages->{$lang}
with the appropriate $page
from the requested $pages
from CPAN::Search::Lite::Lang::$lang.pm
. At present the available data structures are:
$chaps_desc
This is a hash reference giving a description, in different languages, of the various CPAN chapter ids.
foreach
my
$lang
(
sort
keys
%$chaps_desc
) {
print
"For language $lang\n"
;
foreach
my
$id
(
sort
{
$a
<=>
$b
}
keys
%{
$chaps_desc
->{
$lang
}}) {
print
" $id => $chaps_desc->{$lang}->{$id}\n"
;
}
}
Special characters used are HTML-encoded.
$dslip
This is a hash reference describing the dslip (development, support, language, interface, and public license) information, available in different languages:
for
my
$lang
(
sort
keys
%$dslip
) {
print
"For language $lang:\n"
;
for
my
$key
(
qw/d s l i p/
) {
print
" For key $key: $dslip->{$lang}->{$key}->{desc}\n"
;
for
my
$entry
(
sort
keys
%{
$dslip
->{
$lang
}->{
$key
}}) {
next
if
$entry
eq
'desc'
;
print
" Entry $entry: $dslip->{$lang}->{$key}->{$entry}\n"
;
}
}
}
Special characters used are HTML-encoded.
$pages
This hash, with keys being various languages, provides some translations of terms used in the tt2 pages.
$months
This hash, with keys being various languages, provides translations of the abbreviations of names of the months.