http://qs321.pair.com?node_id=343223

giulienk has asked for the wisdom of the Perl Monks concerning the following question:

I just found last week that the POD for my Audio::Beep module has been translated into Japanese by the perldoc.jp project. So I offered them to include their translation into my CPAN release of the module. Now for a few questions: Maybe something coded along the lines of the following pseudo-code could do the trick:
if (shell is interactive) { if (ask "Do you want to install Japanese docs?") { install japanese_docs; } else { install standard_docs; } } else { if (check_locale == 'jp') { install japanese_docs; } else { install standard_docs; } }
What you think? Any better ideas or any guidelines or already defined standards? Thanks.


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g