diff --git a/lib/SLUB/LZA/TA/Command/count.pm b/lib/SLUB/LZA/TA/Command/count.pm index 304d4a104de5842eda212e2a789f85ad47936e60..d2cc6a640ff1e068b80ac34d398a32b3b1ecb0fa 100644 --- a/lib/SLUB/LZA/TA/Command/count.pm +++ b/lib/SLUB/LZA/TA/Command/count.pm @@ -67,7 +67,7 @@ sub opt_spec { ); return (@global_opts, [], @local_opts); } -sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity +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! diff --git a/lib/SLUB/LZA/TA/Command/init.pm b/lib/SLUB/LZA/TA/Command/init.pm index f54af74dcaff34b7a543454e56c756ca85c02db1..3247b408f06c238351bdb8bdca6f76fc1d4ce9fb 100644 --- a/lib/SLUB/LZA/TA/Command/init.pm +++ b/lib/SLUB/LZA/TA/Command/init.pm @@ -27,7 +27,7 @@ sub opt_spec { return (@global_opts, [], @local_opts); } -sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity +sub validate_args { ## no critic (CognitiveComplexity::ProhibitExcessCognitiveComplexity) my ($self, $opt, $args) = @_; # no args allowed but options! $self->usage_error("No args allowed") if @$args; diff --git a/lib/SLUB/LZA/TA/Command/report.pm b/lib/SLUB/LZA/TA/Command/report.pm index 84a37d6fcdce65d844d37c7f2b2612cd1b89d18e..fbc8d05743ce75132ff967104450aed88e0e85c6 100644 --- a/lib/SLUB/LZA/TA/Command/report.pm +++ b/lib/SLUB/LZA/TA/Command/report.pm @@ -117,7 +117,7 @@ sub opt_spec { ); return (@global_opts, [], @local_opts); } -sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity +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! @@ -271,7 +271,7 @@ PAINLESS return $aips_response; } -sub get_ldp_projects { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity +sub get_ldp_projects { ## no critic (CognitiveComplexity::ProhibitExcessCognitiveComplexity) my ($self, $opt, $args) = @_; my $query = SLUB::LZA::TA::Archivematica::Elasticsearch::PrepareQuery::prepare_ldpprojects_query(@_); my $response = SLUB::LZA::TA::Archivematica::Elasticsearch::query_elasticsearch( @@ -509,7 +509,7 @@ sub execute { return 1; } -sub prepare_for_table($results, $ldp_projects) { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity +sub prepare_for_table($results, $ldp_projects) { ## no critic (CognitiveComplexity::ProhibitExcessCognitiveComplexity) my @table; foreach my $set (SETS) { foreach my $aip_state (AIPSTATE) { @@ -553,7 +553,7 @@ sub prepare_for_table($results, $ldp_projects) { ## no critic CognitiveComplexit return \@headers, \@table; } -sub print_humanreadable_report ($results) { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity +sub print_humanreadable_report ($results) { ## no critic (CognitiveComplexity::ProhibitExcessCognitiveComplexity) say <<"RPTHEADER"; :lang: en :doctype: article diff --git a/lib/SLUB/LZA/TA/Command/search.pm b/lib/SLUB/LZA/TA/Command/search.pm index a49697a186c04c5df3f0fee17364b607308cd0f2..1bea1819257c679ce097a42172f8fc02f30f78a2 100644 --- a/lib/SLUB/LZA/TA/Command/search.pm +++ b/lib/SLUB/LZA/TA/Command/search.pm @@ -118,8 +118,8 @@ sub opt_spec { ); return (@global_opts, [], @local_opts); } -sub validate_args { ## no critic CognitiveComplexity::ProhibitExcessCognitiveComplexity - my ($self, $opt, $args) = @_; + +sub validate_args($self, $opt, $args) { ## no critic qw(CognitiveComplexity::ProhibitExcessCognitiveComplexity Subroutines::ProhibitExcessComplexity) SLUB::LZA::TA::common_global_validate($self, $opt, $args); # no args allowed but options! $self->usage_error("No args allowed") if @$args;