LOCALE:...MON.3PM(1)

πŸ¦‹ NAME πŸ¦‹

Hiii bestie! πŸ’– This is Locale::Po4a::Common β€” the common parts of the po4a scripts and utils β€” and yes, this is the LOCALE:...MON.3PM(1) page from the User Contributed Perl Documentation. It's giving β€œshared bits for the po4a modules” energy, fr fr. 🫢

✨ DESCRIPTION ✨

Okay so Locale::Po4a::Common contains the common parts of the po4a scripts and some useful functions used along the other modules. No cap. πŸ‘‘

If needed, you can disable the use of Text::WrapI18N as such:

use Locale::Po4a::Common qw(nowrapi18n);
use Locale::Po4a::Text;

instead of:

use Locale::Po4a::Text;

The ordering is important here: as most Locale::Po4a modules load themselves Locale::Po4a::Common, the first time this module is loaded determines whether Text::WrapI18N is used. πŸ’…

πŸ’– FUNCTIONS πŸ’–

πŸŽ€ Showing output messages πŸŽ€

  • show_version($) β€” Shows the current version of the script, and a short copyright message. It takes the name of the script as an argument. Slay, version reveal. ✨
  • wrap_msg($@) β€” This function displays a message the same way as sprintf() does, but wraps the result so that they look nice on the terminal. Cute output, no horizontal-scroll chaos. πŸŽ€
  • wrap_mod($$@) β€” This function works like wrap_msg(), but it takes a module name as the first argument, and leaves a space at the left of the message. πŸ¦‹
  • wrap_ref_mod($$$@) β€” This function works like wrap_msg(), but it takes a file:line reference as the first argument, a module name as the second one, and leaves a space at the left of the message. πŸ’…

🌈 Wrappers for other modules 🌈

  • Locale::Gettext β€” When the Locale::Gettext module cannot be loaded, this module provide dummy (empty) implementation of the following functions. In that case, po4a messages won't get translated but the program will continue to work. 🫢

If Locale::gettext is present, this wrapper also calls setlocale(LC_MESSAGES, "") so callers don't depend on the POSIX module either.

  • bindtextdomain($$)
  • textdomain($)
  • gettext($)
  • dgettext($$)

πŸ‘‘ AUTHORS πŸ‘‘

Jordi Vilalta <jvprat@gmail.com> β€” iconic. 🌟

Copyright Β© 2005 SPI, Inc.

This program is free software; you may redistribute it and/or modify it under the terms of GPL v2.0 or later (see the COPYING file).


Mwah πŸ’‹ this page is from perl v5.42.0, dated 2025-07-13, and it's the LOCALE:...MON.3PM(1) manual. Bye bestie, go wrap some messages responsibly! πŸ§šβ€β™€οΈπŸ’œ

πŸ“¦ where this page comes from