aboutsummaryrefslogtreecommitdiff
path: root/challenge-013
diff options
context:
space:
mode:
authorPaulo Custodio <pauloscustodio@gmail.com>2021-11-03 16:10:13 +0000
committerPaulo Custodio <pauloscustodio@gmail.com>2021-11-03 16:10:13 +0000
commitd12a3c58624c219f252e34b926797aa1b68a69fa (patch)
tree507a3ff52cb4a2185864239190ba13155df1cbf8 /challenge-013
parentdd979819d8042c04464033dcff0c2853546e34c1 (diff)
downloadperlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.gz
perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.bz2
perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.zip
use Modern::Perl
Diffstat (limited to 'challenge-013')
-rw-r--r--challenge-013/paulo-custodio/perl/ch-1.pl4
-rw-r--r--challenge-013/paulo-custodio/perl/ch-2.pl4
-rw-r--r--challenge-013/paulo-custodio/test.pl4
3 files changed, 3 insertions, 9 deletions
diff --git a/challenge-013/paulo-custodio/perl/ch-1.pl b/challenge-013/paulo-custodio/perl/ch-1.pl
index 95f0f97eb7..b058f16c12 100644
--- a/challenge-013/paulo-custodio/perl/ch-1.pl
+++ b/challenge-013/paulo-custodio/perl/ch-1.pl
@@ -19,9 +19,7 @@
# 2019/11/29
# 2019/12/27
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
use constant Friday => 5;
sub is_leap {
diff --git a/challenge-013/paulo-custodio/perl/ch-2.pl b/challenge-013/paulo-custodio/perl/ch-2.pl
index 9471d36b87..de43826352 100644
--- a/challenge-013/paulo-custodio/perl/ch-2.pl
+++ b/challenge-013/paulo-custodio/perl/ch-2.pl
@@ -12,9 +12,7 @@
# F ( n ) = n − M ( F ( n − 1 ) ) , n > 0
# M ( n ) = n − F ( M ( n − 1 ) ) , n > 0.
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
sub F {
my($n) = @_;
diff --git a/challenge-013/paulo-custodio/test.pl b/challenge-013/paulo-custodio/test.pl
index 68d0aee8ba..91c463d690 100644
--- a/challenge-013/paulo-custodio/test.pl
+++ b/challenge-013/paulo-custodio/test.pl
@@ -1,8 +1,6 @@
#!/usr/bin/perl
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
use Test::More;
is capture("perl perl/ch-1.pl 2019"), <<END;