superlint/.automation/test/jscpd/perl_good_1.pl
Marco Ferrari ab8780a58f
Install, configure, and run jscpd. Add missing tests (#1032)
Co-authored-by: Gabo <gabo.fdc@gmail.com>
Co-authored-by: Matt Desmond <beardofedu@github.com>
Co-authored-by: Lukas Gravley <admiralawkbar@github.com>
2021-01-27 20:47:34 +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";
}