Remove verbose option handling from each format modules.

Author: gemmaro

lib/Locale/Po4a/AsciiDoc.pm

@@ -215,7 +215,6 @@ sub initialize {
     $self->{options}{'nobullets'}      = 1;
     $self->{options}{'forcewrap'}      = 0;
     $self->{options}{'debug'}          = '';
-    $self->{options}{'verbose'}        = 1;
     $self->{options}{'entry'}          = '';
     $self->{options}{'macro'}          = '';
     $self->{options}{'style'}          = '';

lib/Locale/Po4a/Man.pm

@@ -471,7 +471,6 @@ sub initialize {
     my %options = @_;
 
     $self->{options}{'debug'}            = '';
-    $self->{options}{'verbose'}          = '';
     $self->{options}{'groff_code'}       = '';
     $self->{options}{'untranslated'}     = '';
     $self->{options}{'noarg'}            = '';

lib/Locale/Po4a/Org.pm

@@ -38,7 +38,6 @@ sub initialize {
     $self->{options}{skip_properties} = [];
     $self->{options}{skip_heading}    = 0;
     $self->{options}{debug}           = 0;
-    $self->{options}{verbose}         = 0;
 
     foreach my $opt ( keys %options ) {
         exists $self->{options}{$opt}
@@ -47,7 +46,6 @@ sub initialize {
 
     $self->{options}{skip_heading} = $options{skip_heading};
     $self->{options}{debug}        = $options{debug};
-    $self->{options}{verbose}      = $options{verbose};
 
     foreach my $option_name ( 'skip_keywords', 'skip_properties' ) {
         my $option = $options{$option_name} or next;

lib/Locale/Po4a/RubyDoc.pm

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

lib/Locale/Po4a/Sgml.pm

@@ -255,8 +255,7 @@ sub initialize {
 
     $self->{options}{'force'} = '';
 
-    $self->{options}{'verbose'} = '';
-    $self->{options}{'debug'}   = '';
+    $self->{options}{'debug'} = '';
 
     foreach my $opt ( keys %options ) {
         if ( $options{$opt} ) {

lib/Locale/Po4a/TeX.pm

@@ -1633,7 +1633,6 @@ sub initialize {
     $self->{options}{'no_wrap'}         = '';
     $self->{options}{'verbatim'}        = '';
     $self->{options}{'debug'}           = '';
-    $self->{options}{'verbose'}         = '';
     $self->{options}{'no-warn'}         = 0;    # TexInfo option to not warn about the state of the module
 
     %debug = ();

lib/Locale/Po4a/Text.pm

@@ -231,7 +231,6 @@ sub initialize {
     $self->{options}{'nobullets'}       = 0;
     $self->{options}{'keyvalue'}        = 1;
     $self->{options}{'tabs'}            = 1;
-    $self->{options}{'verbose'}         = 1;
     $self->{options}{'neverwrap'}       = 1;
 
     foreach my $opt ( keys %options ) {

lib/Locale/Po4a/TransTractor.pm

@@ -376,6 +376,7 @@ sub new {
     $self->{options}{'package-version'}    = '';
     $self->{options}{'wrap-po'}            = '';
     $self->{options}{'wrapcol'}            = '';
+    $self->{options}{'verbose'}            = delete $options{verbose};
     my $context_module = delete $options{context_module};
 
     # let the plugin parse the options and such
@@ -400,8 +401,8 @@ sub new {
     #  [0] is the line content, [1] is the reference $filename:$linenum
     $self->{TT}{doc_in}  = ();
     $self->{TT}{doc_out} = ();
-    if ( defined $options{'verbose'} ) {
-        $self->{TT}{verbose} = $options{'verbose'};
+    if ( defined $self->{options}{verbose} ) {
+        $self->{TT}{verbose} = $self->{options}{verbose};
     }
     if ( defined $options{'debug'} ) {
         $self->{TT}{debug} = $options{'debug'};

lib/Locale/Po4a/Xml.pm

@@ -594,8 +594,7 @@ sub initialize {
     $self->{options}{'ontagerror'}             = "fail";
     $self->{options}{'cpp'}                    = 0;
 
-    $self->{options}{'verbose'} = '';
-    $self->{options}{'debug'}   = '';
+    $self->{options}{'debug'} = '';
 
     foreach my $opt ( keys %options ) {
         if ( $options{$opt} ) {

lib/Locale/Po4a/Yaml.pm

@@ -97,7 +97,6 @@ sub initialize {
     $self->{options}{'keys'}       = '';
     $self->{options}{'paths'}      = '';
     $self->{options}{'debug'}      = 0;
-    $self->{options}{'verbose'}    = 1;
     $self->{options}{'skip_array'} = 0;
 
     foreach my $opt ( keys %options ) {