From d12a3c58624c219f252e34b926797aa1b68a69fa Mon Sep 17 00:00:00 2001 From: Paulo Custodio Date: Wed, 3 Nov 2021 16:10:13 +0000 Subject: use Modern::Perl --- challenge-083/paulo-custodio/perl/ch-1.pl | 4 +--- challenge-083/paulo-custodio/perl/ch-2.pl | 4 +--- challenge-083/paulo-custodio/test.pl | 4 +--- 3 files changed, 3 insertions(+), 9 deletions(-) (limited to 'challenge-083') diff --git a/challenge-083/paulo-custodio/perl/ch-1.pl b/challenge-083/paulo-custodio/perl/ch-1.pl index 44e634c752..597e65e4ea 100644 --- a/challenge-083/paulo-custodio/perl/ch-1.pl +++ b/challenge-083/paulo-custodio/perl/ch-1.pl @@ -18,9 +18,7 @@ # # Output: 23 -use strict; -use warnings; -use 5.030; +use Modern::Perl; @ARGV >= 3 or die "need at least 3 words\n"; say length(join('', @ARGV[1 .. $#ARGV-1])); diff --git a/challenge-083/paulo-custodio/perl/ch-2.pl b/challenge-083/paulo-custodio/perl/ch-2.pl index 05b97833c3..0332afc373 100644 --- a/challenge-083/paulo-custodio/perl/ch-2.pl +++ b/challenge-083/paulo-custodio/perl/ch-2.pl @@ -26,9 +26,7 @@ # Explanation: # Flipping the sign of just one element 12 gives the result 0 i.e. (-12) + (2) + (10) = 0 -use strict; -use warnings; -use 5.030; +use Modern::Perl; my @A = @ARGV; say count_flips(@A); diff --git a/challenge-083/paulo-custodio/test.pl b/challenge-083/paulo-custodio/test.pl index aafadba07d..a990681a37 100644 --- a/challenge-083/paulo-custodio/test.pl +++ b/challenge-083/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 The Weekly Challenge"), "6\n"; is capture("perl/ch-1.pl The purpose of our lives is to be happy"), "23\n"; -- cgit