diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-14 17:43:52 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-14 17:43:52 +0100 |
| commit | d3a8976564f2e95265ab2765c727e35c7946b059 (patch) | |
| tree | bc303d67e84b07bddb60feedeb91db7932c40e02 | |
| parent | 7edb9e855a4446410d8dd504f4688ee5d679869f (diff) | |
| parent | 27eaa695ea694a84772ee3f32b333496a576fa82 (diff) | |
| download | perlweeklychallenge-club-d3a8976564f2e95265ab2765c727e35c7946b059.tar.gz perlweeklychallenge-club-d3a8976564f2e95265ab2765c727e35c7946b059.tar.bz2 perlweeklychallenge-club-d3a8976564f2e95265ab2765c727e35c7946b059.zip | |
Merge pull request #777 from duanepowell/pwc30
fix use constant
| -rwxr-xr-x | challenge-030/duane-powell/perl5/ch-1.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/challenge-030/duane-powell/perl5/ch-1.pl b/challenge-030/duane-powell/perl5/ch-1.pl index 46ca15c946..41d888cea1 100755 --- a/challenge-030/duane-powell/perl5/ch-1.pl +++ b/challenge-030/duane-powell/perl5/ch-1.pl @@ -5,9 +5,11 @@ use strict; # Write a script to list dates for Sunday Christmas between 2019 and 2100. For example, 25 Dec 2022 is Sunday. use DateTime; -use constant SUNDAY => 7; -use constant DECEMBER => 12; -use constant XMAS => 25; +use constant { + SUNDAY => 7, + DECEMBER => 12, + XMAS => 25, +}; print "List of Sunday Christmas between 2019 and 2100\n"; foreach my $year (2019 .. 2100) { |