diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-11-03 16:10:13 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-11-03 16:10:13 +0000 |
| commit | d12a3c58624c219f252e34b926797aa1b68a69fa (patch) | |
| tree | 507a3ff52cb4a2185864239190ba13155df1cbf8 /challenge-021 | |
| parent | dd979819d8042c04464033dcff0c2853546e34c1 (diff) | |
| download | perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.gz perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.bz2 perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.zip | |
use Modern::Perl
Diffstat (limited to 'challenge-021')
| -rw-r--r-- | challenge-021/paulo-custodio/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-021/paulo-custodio/perl/ch-2.pl | 4 | ||||
| -rw-r--r-- | challenge-021/paulo-custodio/test.pl | 4 |
3 files changed, 3 insertions, 9 deletions
diff --git a/challenge-021/paulo-custodio/perl/ch-1.pl b/challenge-021/paulo-custodio/perl/ch-1.pl index b19fe51ba5..ee4a425f69 100644 --- a/challenge-021/paulo-custodio/perl/ch-1.pl +++ b/challenge-021/paulo-custodio/perl/ch-1.pl @@ -6,9 +6,7 @@ # Write a script to calculate the value of e, also known as Euler’s number and # Napier’s constant. Please checkout wiki page for more information. -use strict; -use warnings; -use 5.030; +use Modern::Perl; sub calc_e { my $e = 1; diff --git a/challenge-021/paulo-custodio/perl/ch-2.pl b/challenge-021/paulo-custodio/perl/ch-2.pl index 9f4a0fc9aa..f7c1dc1144 100644 --- a/challenge-021/paulo-custodio/perl/ch-2.pl +++ b/challenge-021/paulo-custodio/perl/ch-2.pl @@ -11,9 +11,7 @@ # normalization process is to transform a URL into a normalized URL so it is # possible to determine if two syntactically different URLs may be equivalent. -use strict; -use warnings; -use 5.030; +use Modern::Perl; sub decode_triplets { my($hex) = @_; diff --git a/challenge-021/paulo-custodio/test.pl b/challenge-021/paulo-custodio/test.pl index 6408cd418d..ac2d794fd7 100644 --- a/challenge-021/paulo-custodio/test.pl +++ b/challenge-021/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"), "2.71828182845905\n"; |