Update exercises and runner to Perl 5.40

.github/workflows/exercises.yml

@@ -8,24 +8,26 @@ jobs:
     runs-on: ${{ matrix.os }}
     strategy:
       matrix:
-        os: ['ubuntu-22.04', 'macos-12']
-        perl: ['5.38', '5.36', '5.34', '5.32', '5.30', '5.28', '5.26', '5.24', '5.22', '5.20']
+        os: ['ubuntu-latest', 'macos-latest']
+        perl: ['5.40', '5.38', '5.36', '5.34', '5.32', '5.30', '5.28', '5.26', '5.24', '5.22', '5.20']
+        distribution: ['default']
         include:
-          - os: 'windows-2022'
-            perl: '5.32'
+          - os: 'windows-latest'
+            perl: '5.38'
+            distribution: strawberry
 
     name: Perl ${{ matrix.perl }} on ${{ matrix.os }}
     steps:
       - name: Checkout
         uses: actions/checkout@a5ac7e51b41094c92402da3b24376905380afc29
 
       - name: Set up perl
-        uses: shogo82148/actions-setup-perl@28eae78d12c2bba1163aec45d123f6d9228bc307
+        uses: shogo82148/actions-setup-perl@87c3ad5232e6c1b59da33bfde4fb24b0482901f1
         with:
           perl-version: ${{ matrix.perl }}
-          distribution: strawberry
+          distribution: ${{ matrix.distribution }}
 
-      - run: cpm install -g Test2::V0
+      - run: cpm install -g Test2::V0 UUID
 
       - name: Exercise modules
         shell: pwsh

cpanfile

@@ -1,10 +1,11 @@
 requires 'lib::gitroot';
+requires 'Data::Dmp';
 requires 'Moo';
 requires 'namespace::autoclean';
 requires 'Path::Tiny';
 requires 'Perl::Tidy';
 requires 'Template::Mustache';
 requires 'Test2::V0';
 requires 'TOML::Parser';
+requires 'UUID';
 requires 'YAML';
-requires 'Data::Dmp';

exercises/concept/booking-up-for-beauty/.meta/BookingUpForBeauty.pm

@@ -1,6 +1,6 @@
 package BookingUpForBeauty;
 
-use v5.38;
+use v5.40;
 
 use Time::Piece;
 #use Const::Fast;

exercises/concept/booking-up-for-beauty/lib/BookingUpForBeauty.pm

@@ -1,6 +1,6 @@
 package BookingUpForBeauty;
 
-use v5.38;
+use v5.40;
 
 # Suggested datetime modules you can use:
 #use Time::Piece;

exercises/concept/high-score-board/.meta/HighScoreBoard.pm

@@ -1,6 +1,6 @@
 package HighScoreBoard;
 
-use v5.38;
+use v5.40;
 
 our %Scores;
 

exercises/concept/high-score-board/lib/HighScoreBoard.pm

@@ -1,6 +1,6 @@
 package HighScoreBoard;
 
-use v5.38;
+use v5.40;
 
 our %Scores;
 

exercises/concept/inventory-management/.meta/InventoryManagement.pm

@@ -1,6 +1,6 @@
 package InventoryManagement;
 
-use v5.38;
+use v5.40;
 
 sub create_inventory ($items) {
     my %inventory;

exercises/concept/inventory-management/lib/InventoryManagement.pm

@@ -1,6 +1,6 @@
 package InventoryManagement;
 
-use v5.38;
+use v5.40;
 
 sub create_inventory ($items) {
     my %inventory;

exercises/concept/language-list/.meta/LanguageList.pm

@@ -1,6 +1,6 @@
 package LanguageList;
 
-use v5.38;
+use v5.40;
 use List::Util qw<any>;
 
 our @Languages;

exercises/concept/language-list/lib/LanguageList.pm

@@ -1,6 +1,6 @@
 package LanguageList;
 
-use v5.38;
+use v5.40;
 
 our @Languages;
 

exercises/concept/lasagna/.meta/Lasagna.pm

@@ -1,6 +1,6 @@
 package Lasagna;
 
-use v5.38;
+use v5.40;
 
 our $ExpectedMinutesInOven = 40;
 

exercises/concept/lasagna/lib/Lasagna.pm

@@ -1,6 +1,6 @@
 package Lasagna;
 
-use v5.38;
+use v5.40;
 
 our $ExpectedMinutesInOven = undef;
 

exercises/practice/accumulate/lib/Accumulate.pm

@@ -1,6 +1,6 @@
 package Accumulate;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<accumulate>;

exercises/practice/all-your-base/lib/AllYourBase.pm

@@ -1,6 +1,6 @@
 package AllYourBase;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<rebase>;

exercises/practice/allergies/lib/Allergies.pm

@@ -1,6 +1,6 @@
 package Allergies;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<allergic_to list_allergies>;

exercises/practice/anagram/lib/Anagram.pm

@@ -1,6 +1,6 @@
 package Anagram;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<match_anagrams>;

exercises/practice/atbash-cipher/lib/AtbashCipher.pm

@@ -1,6 +1,6 @@
 package AtbashCipher;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<encode_atbash decode_atbash>;

exercises/practice/binary-search-tree/lib/BinarySearchTree.pm

@@ -1,6 +1,6 @@
 package BinarySearchTree;
 
-use v5.38;
+use v5.40;
 use Moo;
 
 package BinarySearchTree::Node {

exercises/practice/binary-search/lib/BinarySearch.pm

@@ -1,6 +1,6 @@
 package BinarySearch;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<binary_search>;

exercises/practice/bob/lib/Bob.pm

@@ -1,7 +1,7 @@
 # Declare package 'Bob'
 package Bob;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<hey>;

exercises/practice/bottle-song/lib/BottleSong.pm

@@ -1,6 +1,6 @@
 package BottleSong;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<sing>;

exercises/practice/clock/lib/Clock.pm

@@ -1,6 +1,6 @@
 package Clock;
 
-use v5.38;
+use v5.40;
 use Moo;
 
 # rwp = read-write protected

exercises/practice/clock/t/clock.t

@@ -274,15 +274,15 @@ $todo = undef; # end: 6f8c6541-afac-4a92-b0c2-b10d4e50269f
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: bb9d5a68-e324-4bf5-a75e-0e9b1f97a90d
 is(
-    Clock->new( hour => 17,  minute => 3 ),
+    Clock->new( hour =>  17, minute => 3 ),
     Clock->new( hour => -31, minute => 3 ),
     "Compare two clocks for equality: clocks with negative hour that wraps",
 );
 $todo = undef; # end: bb9d5a68-e324-4bf5-a75e-0e9b1f97a90d
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: 56c0326d-565b-4d19-a26f-63b3205778b7
 is(
-    Clock->new( hour => 13,  minute => 49 ),
+    Clock->new( hour =>  13, minute => 49 ),
     Clock->new( hour => -83, minute => 49 ),
     "Compare two clocks for equality: clocks with negative hour that wraps multiple times",
 );
@@ -306,39 +306,39 @@ $todo = undef; # end: 533a3dc5-59a7-491b-b728-a7a34fe325de
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: fff49e15-f7b7-4692-a204-0f6052d62636
 is(
-    Clock->new( hour => 2, minute => 40 ),
+    Clock->new( hour => 2, minute =>  40 ),
     Clock->new( hour => 3, minute => -20 ),
     "Compare two clocks for equality: clocks with negative minute",
 );
 $todo = undef; # end: fff49e15-f7b7-4692-a204-0f6052d62636
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: 605c65bb-21bd-43eb-8f04-878edf508366
 is(
-    Clock->new( hour => 4, minute => 10 ),
+    Clock->new( hour => 4, minute =>  10 ),
     Clock->new( hour => 5, minute => -1490 ),
     "Compare two clocks for equality: clocks with negative minute that wraps",
 );
 $todo = undef; # end: 605c65bb-21bd-43eb-8f04-878edf508366
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: b87e64ed-212a-4335-91fd-56da8421d077
 is(
-    Clock->new( hour => 6, minute => 15 ),
+    Clock->new( hour => 6, minute =>  15 ),
     Clock->new( hour => 6, minute => -4305 ),
     "Compare two clocks for equality: clocks with negative minute that wraps multiple times",
 );
 $todo = undef; # end: b87e64ed-212a-4335-91fd-56da8421d077
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: 822fbf26-1f3b-4b13-b9bf-c914816b53dd
 is(
-    Clock->new( hour => 7,   minute => 32 ),
+    Clock->new( hour =>  7,  minute =>  32 ),
     Clock->new( hour => -12, minute => -268 ),
     "Compare two clocks for equality: clocks with negative hours and minutes",
 );
 $todo = undef; # end: 822fbf26-1f3b-4b13-b9bf-c914816b53dd
 
 $todo = todo 'experimental feature' if Clock->new( hour => 0, minute => 0 ) =~ /OBJECT/; # begin: e787bccd-cf58-4a1d-841c-ff80eaaccfaa
 is(
-    Clock->new( hour => 18,  minute => 7 ),
+    Clock->new( hour =>  18, minute =>  7 ),
     Clock->new( hour => -54, minute => -11513 ),
     "Compare two clocks for equality: clocks with negative hours and minutes that wrap",
 );

exercises/practice/crypto-square/lib/CryptoSquare.pm

@@ -1,6 +1,6 @@
 package CryptoSquare;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<cipher>;

exercises/practice/custom-set/lib/CustomSet.pm

@@ -1,6 +1,6 @@
 package CustomSet;
 
-use v5.38;
+use v5.40;
 use Moo;
 
 has elements => (

exercises/practice/darts/lib/Darts.pm

@@ -1,6 +1,6 @@
 package Darts;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<score_dart>;

exercises/practice/difference-of-squares/lib/DifferenceOfSquares.pm

@@ -1,6 +1,6 @@
 package DifferenceOfSquares;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<square_of_sum sum_of_squares difference_of_squares>;

exercises/practice/etl/lib/ETL.pm

@@ -1,6 +1,6 @@
 package ETL;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<transform>;

exercises/practice/food-chain/lib/FoodChain.pm

@@ -1,6 +1,6 @@
 package FoodChain;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<recite>;

exercises/practice/gigasecond/lib/Gigasecond.pm

@@ -1,6 +1,6 @@
 package Gigasecond;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<add_gigasecond>;

exercises/practice/grade-school/lib/GradeSchool.pm

@@ -1,6 +1,6 @@
 package GradeSchool;
 
-use v5.38;
+use v5.40;
 use Moo;
 
 sub add ( $self, $student, $grade ) {

exercises/practice/grains/lib/Grains.pm

@@ -1,6 +1,6 @@
 package Grains;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<grains_on_square total_grains>;

exercises/practice/hamming/lib/Hamming.pm

@@ -1,6 +1,6 @@
 package Hamming;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<hamming_distance>;

exercises/practice/hello-world/lib/HelloWorld.pm

@@ -1,7 +1,7 @@
 # Declare package 'HelloWorld'
 package HelloWorld;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<hello>;

exercises/practice/house/lib/House.pm

@@ -1,6 +1,6 @@
 package House;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<recite>;

exercises/practice/kindergarten-garden/lib/KindergartenGarden.pm

@@ -1,6 +1,6 @@
 package KindergartenGarden;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<plants>;

exercises/practice/largest-series-product/.meta/template-data.yaml

@@ -4,7 +4,7 @@ properties:
   largestProduct:
     test: |-
       use Data::Dmp;
-      $Data::Dmp::OPT_STRINGIFY_NUMBERS = 1;
+      local $Data::Dmp::OPT_STRINGIFY_NUMBERS = 1;
       if (!ref $case->{expected}) {
           sprintf(<<'END', dmp($case->{input}{digits}), $case->{input}{span}, $case->{expected}, dmp($case->{description}));
       is(

exercises/practice/largest-series-product/lib/LargestSeriesProduct.pm

@@ -1,6 +1,6 @@
 package LargestSeriesProduct;
 
-use v5.38;
+use v5.40;
 
 use Exporter qw<import>;
 our @EXPORT_OK = qw<largest_product>;