Debian::L10n::Debconf - translation status of Debconf templates

       Copyright (C) 2001  Denis Barbier <barbier@debian.org>

       This  program  is  free  software;  you  can  redistribute it and/or modify it under the terms of the GNU
       General Public License as published by the Free Software Foundation; either version 2 of the License,  or
       (at your option) any later version.

perl v5.32.0                                       2021-01-05                         Debian::L10n::Debconf(3pm)

       This module extracts informations about translation status of Debconf templates files.

       new This is the constructor.

              my $tmpl = Debian::L10n::Debconf->new();

       read_compact
           Read a templates file containing all translations.  An optional second argument may be used, any non-
           zero value tells that this file comes with translations in other files.  In such a case no warning is
           raised  if  this file contains translated fields, because maintainer is assumed to be responsible for
           such translations.

              $tmpl->read_compact($file);

       read_dispatched
           Read templates contained in several files.  First argument is the English file, all  other  arguments
           are translated templates files.

              @trans = qw(templates.de templates.fr templates.ja templates.nl);
              $tmpl->read_dispatched('templates', @trans);

       langs
           Return the languages in which this templates file is translated.

              my @list = $tmpl->langs();

       filename
           When templates are dispatched into several files, return the filename in which the language passed as
           argument is found.

              my $filename = $tmpl->filename("de");

       count
           Return the number of translatable strings in this templates file.

              my $number = $tmpl->count();

       stats
           With  an  argument,  return  an  array consisting of the number of translated, fuzzy and untranslated
           strings for the language given as argument.   Without  argument,  return  a  hash  array  indexed  by
           language and returning an array of the number of translated, fuzzy and untranslated strings.

              my ($t, $f, $u) = $tmpl->stats("de");
              my %stats  = $tmpl->stats();
              foreach (keys %stats) {
                      print $_.':'. $stats{$_}->[0].'t'.$stats{$_}->[1].'f'.
                           $stats{$_}->[2]."u\n";
              }

       entries
           Return an array containing all Debconf ids found in this templates file.

              my @ids = $tmpl->entries();

       Debian::L10n::Debconf - translation status of Debconf templates

        use Debian::L10n::Debconf;
        my $tmpl = Debian::L10n::Debconf->new();
        $tmpl->read_compact($file);
        my @languages = $tmpl->langs();
        foreach (sort @languages) {
               my ($t,$f,$u) = $tmpl->stats($_);
               print "$_:${t}t${f}f${u}u\n";
        }