Remove debug option handling from each format modules.

Author: gemmaro

lib/Locale/Po4a/AsciiDoc.pm

@@ -214,7 +214,6 @@ sub initialize {
 
     $self->{options}{'nobullets'}      = 1;
     $self->{options}{'forcewrap'}      = 0;
-    $self->{options}{'debug'}          = '';
     $self->{options}{'entry'}          = '';
     $self->{options}{'macro'}          = '';
     $self->{options}{'style'}          = '';
@@ -240,8 +239,8 @@ sub initialize {
         $compat, 'asciidoc', 'asciidoctor' )
       if ( defined $compat && $compat ne "asciidoc" && $compat ne "asciidoctor" );
 
-    if ( $options{'debug'} ) {
-        foreach ( $options{'debug'} ) {
+    if ( $self->{options}{debug} ) {
+        foreach ( $self->{options}{debug} ) {
             $debug{$_} = 1;
         }
     }

lib/Locale/Po4a/Man.pm

@@ -470,7 +470,6 @@ sub initialize {
     my $self    = shift;
     my %options = @_;
 
-    $self->{options}{'debug'}            = '';
     $self->{options}{'groff_code'}       = '';
     $self->{options}{'untranslated'}     = '';
     $self->{options}{'noarg'}            = '';
@@ -491,8 +490,8 @@ sub initialize {
     }
 
     %debug = ();
-    if ( defined $options{'debug'} ) {
-        foreach ( $options{'debug'} ) {
+    if ( $self->{options}{'debug'} ) {
+        foreach ( $self->{options}{'debug'} ) {
             $debug{$_} = 1;
         }
     }

lib/Locale/Po4a/Org.pm

@@ -37,15 +37,13 @@ sub initialize {
     $self->{options}{skip_keywords}   = [];
     $self->{options}{skip_properties} = [];
     $self->{options}{skip_heading}    = 0;
-    $self->{options}{debug}           = 0;
 
     foreach my $opt ( keys %options ) {
         exists $self->{options}{$opt}
           or die wrap_mod( 'po4a::org', dgettext( 'po4a', 'Unknown option: %s' ), $opt );
     }
 
     $self->{options}{skip_heading} = $options{skip_heading};
-    $self->{options}{debug}        = $options{debug};
 
     foreach my $option_name ( 'skip_keywords', 'skip_properties' ) {
         my $option = $options{$option_name} or next;

lib/Locale/Po4a/RubyDoc.pm

@@ -64,7 +64,6 @@ sub initialize {
     my $self    = shift;
     my %options = @_;
 
-    $self->{options}{'debug'}   = 1;
     $self->{options}{'puredoc'} = 0;
 
     foreach my $opt ( keys %options ) {

lib/Locale/Po4a/Sgml.pm

@@ -255,17 +255,15 @@ sub initialize {
 
     $self->{options}{'force'} = '';
 
-    $self->{options}{'debug'} = '';
-
     foreach my $opt ( keys %options ) {
         if ( $options{$opt} ) {
             die wrap_mod( "po4a::sgml", dgettext( "po4a", "Unknown option: %s" ), $opt )
               unless exists $self->{options}{$opt};
             $self->{options}{$opt} = $options{$opt};
         }
     }
-    if ( $options{'debug'} ) {
-        foreach ( split /\s+/, $options{'debug'} ) {
+    if ( $self->{options}{'debug'} ) {
+        foreach ( split /\s+/, $self->{options}{'debug'} ) {
             die wrap_mod( "po4a::sgml", dgettext( "po4a", "Unknown debug category: %s. Known categories:\n%s" ),
                 $_, join( " ", keys %debug ) )
               unless exists $debug{$_};

lib/Locale/Po4a/TeX.pm

@@ -1632,7 +1632,6 @@ sub initialize {
     $self->{options}{'exclude_include'} = '';
     $self->{options}{'no_wrap'}         = '';
     $self->{options}{'verbatim'}        = '';
-    $self->{options}{'debug'}           = '';
     $self->{options}{'no-warn'}         = 0;    # TexInfo option to not warn about the state of the module
 
     %debug = ();
@@ -1648,8 +1647,8 @@ sub initialize {
         }
     }
 
-    if ( $options{'debug'} ) {
-        foreach ( $options{'debug'} ) {
+    if ( $self->{options}{'debug'} ) {
+        foreach ( $self->{options}{'debug'} ) {
             $debug{$_} = 1;
         }
     }

lib/Locale/Po4a/Text.pm

@@ -221,7 +221,6 @@ sub initialize {
     $self->{options}{'control'}         = "";
     $self->{options}{'breaks'}          = 1;
     $self->{options}{'debianchangelog'} = 1;
-    $self->{options}{'debug'}           = 1;
     $self->{options}{'fortunes'}        = 1;
     $self->{options}{'markdown'}        = 1;
     $self->{options}{'yfm_keys'}        = '';

lib/Locale/Po4a/TransTractor.pm

@@ -377,6 +377,7 @@ sub new {
     $self->{options}{'wrap-po'}            = '';
     $self->{options}{'wrapcol'}            = '';
     $self->{options}{'verbose'}            = delete $options{verbose};
+    $self->{options}{'debug'}              = delete $options{debug};
     my $context_module = delete $options{context_module};
 
     # let the plugin parse the options and such
@@ -404,8 +405,8 @@ sub new {
     if ( defined $self->{options}{verbose} ) {
         $self->{TT}{verbose} = $self->{options}{verbose};
     }
-    if ( defined $options{'debug'} ) {
-        $self->{TT}{debug} = $options{'debug'};
+    if ( defined $self->{options}{'debug'} ) {
+        $self->{TT}{debug} = $self->{options}{'debug'};
     }
     if ( defined $options{'wrapcol'} ) {
         if ( $options{'wrapcol'} < 0 ) {

lib/Locale/Po4a/VimHelp.pm

@@ -29,12 +29,6 @@ use warnings;
 
 use parent qw(Locale::Po4a::TransTractor);
 
-sub initialize {
-    my ( $self, %options ) = @_;
-    $self->{debug} = $options{debug};
-    return;
-}
-
 sub parse {
     my $self = shift;
 

lib/Locale/Po4a/Xml.pm

@@ -594,8 +594,6 @@ sub initialize {
     $self->{options}{'ontagerror'}             = "fail";
     $self->{options}{'cpp'}                    = 0;
 
-    $self->{options}{'debug'} = '';
-
     foreach my $opt ( keys %options ) {
         if ( $options{$opt} ) {
             die wrap_mod( "po4a::xml::initialize", dgettext( "po4a", "Unknown option: %s" ), $opt )