- disabled complexity warning of perlcritic, because current state of...

- disabled complexity warning of perlcritic, because current state of validate_args() is more readable/understandable than a split into various functions

lib/SLUB/LZA/TA/Command/count.pm

@@ -67,7 +67,7 @@ sub opt_spec {
     );
     return (@global_opts, [], @local_opts);
 }
-sub validate_args {
+sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
     my ($self, $opt, $args) = @_;
     SLUB::LZA::TA::common_global_validate($self, $opt, $args);
     # no args allowed but options!

lib/SLUB/LZA/TA/Command/init.pm

@@ -27,7 +27,7 @@ sub opt_spec {
     return (@global_opts, [], @local_opts);
 }
 
-sub validate_args {
+sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
     my ($self, $opt, $args) = @_;
     # no args allowed but options!
     $self->usage_error("No args allowed") if @$args;

lib/SLUB/LZA/TA/Command/report.pm

@@ -117,7 +117,7 @@ sub opt_spec {
     );
     return (@global_opts, [], @local_opts);
 }
-sub validate_args {
+sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
     my ($self, $opt, $args) = @_;
     SLUB::LZA::TA::common_global_validate($self, $opt, $args);
     # no args allowed but options!

lib/SLUB/LZA/TA/Command/search.pm

@@ -118,7 +118,7 @@ sub opt_spec {
     );
     return (@global_opts, [], @local_opts);
 }
-sub validate_args {
+sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
     my ($self, $opt, $args) = @_;
     SLUB::LZA::TA::common_global_validate($self, $opt, $args);
     # no args allowed but options!