superlint/test/linters/jscpd/good/perl_good_1.pl
Marco Ferrari 11b70102c3
feat!: run linters against the workspace (#5041)
- Run jscpd, gitleaks, textlint  against the entire workspace instead of
  running them over single files, one by one.
- Implement a warning function for deprecated variables.
- Deprecate the VALIDATE_JSCPD_ALL_CODEBASE variable.
- Remove duplicate configuration files when they are the same as the
  ones we provide in TEMPLATES.
- Add a missing tests for ansible-lint.
- Move ANSIBLE_DIRECTORY configuration when running tests in
  buildFileList, where similar configs are.
- Simplify ansible-lint test cases to include only what's necessary, and
  not an entire set of roles, playbooks, and inventory.
- Write instructions about major upgrades in the upgrade guide.
2023-12-24 17:56:15 +01:00

38 lines
1.3 KiB
Perl

#!/usr/bin/perl
################################################################################
################################################################################
######### Script action @admiralawkbar #########################################
################################################################################
#############
# Load Libs #
#############
use strict;
$|=1;
##################
#### GLOBALS: ####
##################
my $state = undef; # State to return to GHE
my $exitCode = 0; # Code to exit with
my $description = "Here it is"; # Description of the build
###############
#### MAIN: ####
###############
Header(); # Basic print statements
#######################################################################
#################### SUB ROUTINES BELOW ONLY ##########################
#######################################################################
#######################################################################
#### SUB ROUTINE Header ###############################################
sub Header
{
print "-------------------------------------------------------------------\n";
print "State:\[$state\]\n";
print "ExitCode:\[$exitCode\]\n";
print "Description:\[$description\]\n";
print "-------------------------------------------------------------------\n";
}