aboutsummaryrefslogtreecommitdiff
path: root/challenge-081
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-081
parentdd979819d8042c04464033dcff0c2853546e34c1 (diff)
downloadperlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.gz
perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.bz2
perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.zip
use Modern::Perl
Diffstat (limited to 'challenge-081')
-rw-r--r--challenge-081/paulo-custodio/perl/ch-1.pl4
-rw-r--r--challenge-081/paulo-custodio/perl/ch-2.pl4
-rw-r--r--challenge-081/paulo-custodio/test.pl4
3 files changed, 3 insertions, 9 deletions
diff --git a/challenge-081/paulo-custodio/perl/ch-1.pl b/challenge-081/paulo-custodio/perl/ch-1.pl
index 5d49f00cd4..761c27d74d 100644
--- a/challenge-081/paulo-custodio/perl/ch-1.pl
+++ b/challenge-081/paulo-custodio/perl/ch-1.pl
@@ -26,9 +26,7 @@
# Output:
# ("a")
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
use Array::Utils 'intersect';
@ARGV==2 or die "Usage: ch-1.pl A B\n";
diff --git a/challenge-081/paulo-custodio/perl/ch-2.pl b/challenge-081/paulo-custodio/perl/ch-2.pl
index 58406b1918..11d77685f7 100644
--- a/challenge-081/paulo-custodio/perl/ch-2.pl
+++ b/challenge-081/paulo-custodio/perl/ch-2.pl
@@ -29,9 +29,7 @@
#
# 9 and the
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
# compute word frequency
my %words;
diff --git a/challenge-081/paulo-custodio/test.pl b/challenge-081/paulo-custodio/test.pl
index a09ddf2e47..ff97302435 100644
--- a/challenge-081/paulo-custodio/test.pl
+++ b/challenge-081/paulo-custodio/test.pl
@@ -1,9 +1,7 @@
#!/usr/bin/perl
-use strict;
-use warnings;
+use Modern::Perl;
use Test::More;
-use 5.030;
is capture("perl/ch-1.pl abcdabcd abcdabcdabcdabcd"), <<END;
("abcd", "abcdabcd")