summaryrefslogtreecommitdiff
path: root/templates_da
diff options
context:
space:
mode:
Diffstat (limited to 'templates_da')
0 files changed, 0 insertions, 0 deletions
generated by cgit v1.2.3 (git 2.46.0) at 2025-09-13 23:44:55 +0000
>
  • # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  • #
  • ########################################################################
  • =head1 NAME
  • Locale::Po4a::Text - Convert text documents from/to PO files
  • =head1 DESCRIPTION
  • The po4a (po for anything) project goal is to ease translations (and more
  • interestingly, the maintenance of translations) using gettext tools on
  • areas where they were not expected like documentation.
  • Locale::Po4a::Text is a module to help the translation of text documents into
  • other [human] languages.
  • Paragraphs are splitted on empty lines (or lines containing only spaces or
  • tabulations).
  • If a paragraph contains a line starting by a space (or tabulation), this
  • paragraph won't be rewrapped.
  • =cut
  • package Locale::Po4a::Text;
  • use 5.006;
  • use strict;
  • use warnings;
  • require Exporter;
  • use vars qw(@ISA @EXPORT);
  • @ISA = qw(Locale::Po4a::TransTractor);
  • @EXPORT = qw();
  • use Locale::Po4a::TransTractor;
  • use Locale::Po4a::Common;
  • =head1 OPTIONS ACCEPTED BY THIS MODULE
  • These are this module's particular options:
  • =over
  • =item B<nobullet>
  • Deactivate detection of bullets.
  • By default, when a bullet is detected, the bullet paragraph is not considered
  • as a verbatim paragraph (with the no-wrap flag in the PO file), but the module
  • rewrap this paragraph in the generated PO file and in the translation.
  • =cut
  • my $bullets = 1;
  • =item B<debianchangelog>
  • Handle the header and footer of
  • released versions, which only contain non translatable informations.
  • =cut
  • my $debianchangelog = 0;
  • =item B<fortunes>
  • Handle the fortunes format, which separate fortunes with a line which
  • consists in '%' or '%%', and use '%%' as the beginning of a comment.
  • =cut
  • my $fortunes = 0;
  • =item B<markdown>
  • Handle some special markup in Markdown-formatted texts.
  • =cut
  • my $markdown = 0;
  • sub initialize {
  • my $self = shift;
  • my %options = @_;
  • $self->{options}{'nobullets'}='';
  • if (defined $options{'nobullets'}) {
  • $bullets = 0;
  • }
  • if (defined $options{'debianchangelog'}) {
  • $debianchangelog=1;
  • }
  • if (defined $options{'fortunes'}) {
  • $fortunes=1;
  • }
  • if (defined $options{'markdown'}) {
  • $markdown=1;
  • }
  • }
  • sub parse {
  • my $self = shift;
  • my ($line,$ref);