diff options
| author | Duane Powell <duane.r.powell@gmail.com> | 2019-10-14 11:41:20 -0500 |
|---|---|---|
| committer | Duane Powell <duane.r.powell@gmail.com> | 2019-10-14 11:41:20 -0500 |
| commit | 27eaa695ea694a84772ee3f32b333496a576fa82 (patch) | |
| tree | dc45b626d98b72f006e330b22f8c6e2732415ffe | |
| parent | 3439d8fee2acdb0fa4a937fa42860066d1c65798 (diff) | |
| download | perlweeklychallenge-club-27eaa695ea694a84772ee3f32b333496a576fa82.tar.gz perlweeklychallenge-club-27eaa695ea694a84772ee3f32b333496a576fa82.tar.bz2 perlweeklychallenge-club-27eaa695ea694a84772ee3f32b333496a576fa82.zip | |
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) { |