Skip to content
Snippets Groups Projects
Verified Commit 0f4300bc authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- 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
parent 8551c4f9
No related branches found
No related tags found
No related merge requests found
...@@ -67,7 +67,7 @@ sub opt_spec { ...@@ -67,7 +67,7 @@ sub opt_spec {
); );
return (@global_opts, [], @local_opts); return (@global_opts, [], @local_opts);
} }
sub validate_args { sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
SLUB::LZA::TA::common_global_validate($self, $opt, $args); SLUB::LZA::TA::common_global_validate($self, $opt, $args);
# no args allowed but options! # no args allowed but options!
......
...@@ -27,7 +27,7 @@ sub opt_spec { ...@@ -27,7 +27,7 @@ sub opt_spec {
return (@global_opts, [], @local_opts); return (@global_opts, [], @local_opts);
} }
sub validate_args { sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
# no args allowed but options! # no args allowed but options!
$self->usage_error("No args allowed") if @$args; $self->usage_error("No args allowed") if @$args;
......
...@@ -117,7 +117,7 @@ sub opt_spec { ...@@ -117,7 +117,7 @@ sub opt_spec {
); );
return (@global_opts, [], @local_opts); return (@global_opts, [], @local_opts);
} }
sub validate_args { sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
SLUB::LZA::TA::common_global_validate($self, $opt, $args); SLUB::LZA::TA::common_global_validate($self, $opt, $args);
# no args allowed but options! # no args allowed but options!
......
...@@ -118,7 +118,7 @@ sub opt_spec { ...@@ -118,7 +118,7 @@ sub opt_spec {
); );
return (@global_opts, [], @local_opts); return (@global_opts, [], @local_opts);
} }
sub validate_args { sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
SLUB::LZA::TA::common_global_validate($self, $opt, $args); SLUB::LZA::TA::common_global_validate($self, $opt, $args);
# no args allowed but options! # no args allowed but options!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment