diff --git a/concepts/packages-and-modules/about.md b/concepts/packages-and-modules/about.md index 876ef663..afe0b4e0 100644 --- a/concepts/packages-and-modules/about.md +++ b/concepts/packages-and-modules/about.md @@ -7,7 +7,7 @@ Symbols in the package's `@EXPORT` array will be imported by default. Symbols in the package's `@EXPORT_OK` array must be imported explicitly. Before Perl `v5.37`, a module would have to end in a true value (usually `1`) to indicate the module had loaded successfully. -This is no longer necessary when using the [`module_true`][module_true] feature. +This is not necessary when using the [`module_true`][module_true] feature. ## Exporting diff --git a/concepts/packages-and-modules/introduction.md b/concepts/packages-and-modules/introduction.md index 876ef663..afe0b4e0 100644 --- a/concepts/packages-and-modules/introduction.md +++ b/concepts/packages-and-modules/introduction.md @@ -7,7 +7,7 @@ Symbols in the package's `@EXPORT` array will be imported by default. Symbols in the package's `@EXPORT_OK` array must be imported explicitly. Before Perl `v5.37`, a module would have to end in a true value (usually `1`) to indicate the module had loaded successfully. -This is no longer necessary when using the [`module_true`][module_true] feature. +This is not necessary when using the [`module_true`][module_true] feature. ## Exporting diff --git a/docs/INSTALLATION.md b/docs/INSTALLATION.md index 51d893fa..af56a498 100644 --- a/docs/INSTALLATION.md +++ b/docs/INSTALLATION.md @@ -1,8 +1,19 @@ # Installation +## Perl Version Notes +The track targets the latest stable release of Perl, but it is possible to use versions of Perl as old as 5.20. +If you are unable to use the version specified in the stub files, it is recomended to replace `use v5.XX;` with the following code: + +```perl +use strict; +use warnings; +use feature qw; +``` + ## Unix/Linux/Mac OSX -Perl is likely already installed. Run `perl -v` to check which version you have. -If your version is older than v5.20, or you would like to try out newer versions of Perl, take a look at 'Other Options'. +Perl is likely already installed, however it is possible that this may not be the latest version. +Run `perl -v` to check which version you have. +If you wish to use a later version, check the 'Other Options' section. If you are using Fedora/Red Hat/CentOS, some core modules are not included with Perl. Use the `yum install perl-core` command to install them. diff --git a/exercises/concept/booking-up-for-beauty/lib/BookingUpForBeauty.pm b/exercises/concept/booking-up-for-beauty/lib/BookingUpForBeauty.pm index d3495343..16c059ff 100644 --- a/exercises/concept/booking-up-for-beauty/lib/BookingUpForBeauty.pm +++ b/exercises/concept/booking-up-for-beauty/lib/BookingUpForBeauty.pm @@ -35,3 +35,5 @@ sub describe_appointment ($date_string) { my $time = _parse_datetime($date_string); return sprintf('You have an appointment on %02d/%02d/%04d %d:%02d %s', 1, 31, 2019, 6, 4, 'PM'); } + +1; diff --git a/exercises/concept/high-score-board/lib/HighScoreBoard.pm b/exercises/concept/high-score-board/lib/HighScoreBoard.pm index d2d19e64..9f2dc1b2 100644 --- a/exercises/concept/high-score-board/lib/HighScoreBoard.pm +++ b/exercises/concept/high-score-board/lib/HighScoreBoard.pm @@ -21,3 +21,5 @@ sub sort_players_by_score { sub delete_player ($player) { } + +1; diff --git a/exercises/concept/inventory-management/lib/InventoryManagement.pm b/exercises/concept/inventory-management/lib/InventoryManagement.pm index a6d60fbf..82fb0e3a 100644 --- a/exercises/concept/inventory-management/lib/InventoryManagement.pm +++ b/exercises/concept/inventory-management/lib/InventoryManagement.pm @@ -18,3 +18,5 @@ sub remove_items ( $inventory, $items ) { sub delete_item ( $inventory, $item ) { return $inventory; } + +1; diff --git a/exercises/concept/language-list/lib/LanguageList.pm b/exercises/concept/language-list/lib/LanguageList.pm index d4dbf89a..6996a376 100644 --- a/exercises/concept/language-list/lib/LanguageList.pm +++ b/exercises/concept/language-list/lib/LanguageList.pm @@ -21,3 +21,5 @@ sub get_languages (@elements) { sub has_language ($language) { } + +1; diff --git a/exercises/concept/lasagna/lib/Lasagna.pm b/exercises/concept/lasagna/lib/Lasagna.pm index 70ab35c9..e39968f1 100644 --- a/exercises/concept/lasagna/lib/Lasagna.pm +++ b/exercises/concept/lasagna/lib/Lasagna.pm @@ -15,3 +15,5 @@ sub total_time_in_minutes ( $number_of_layers, $actual_minutes_in_oven ) { sub oven_alarm () { } + +1; diff --git a/exercises/practice/accumulate/lib/Accumulate.pm b/exercises/practice/accumulate/lib/Accumulate.pm index e34dd761..63c24e31 100644 --- a/exercises/practice/accumulate/lib/Accumulate.pm +++ b/exercises/practice/accumulate/lib/Accumulate.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub accumulate ( $list, $func ) { return undef; } + +1; diff --git a/exercises/practice/all-your-base/lib/AllYourBase.pm b/exercises/practice/all-your-base/lib/AllYourBase.pm index 7f162a6d..1465b372 100644 --- a/exercises/practice/all-your-base/lib/AllYourBase.pm +++ b/exercises/practice/all-your-base/lib/AllYourBase.pm @@ -14,3 +14,5 @@ my @errors = ( sub rebase ( $digits, $input_base, $output_base ) { return undef; } + +1; diff --git a/exercises/practice/allergies/lib/Allergies.pm b/exercises/practice/allergies/lib/Allergies.pm index 37513e30..db3bae21 100644 --- a/exercises/practice/allergies/lib/Allergies.pm +++ b/exercises/practice/allergies/lib/Allergies.pm @@ -12,3 +12,5 @@ sub allergic_to ( $item, $score ) { sub list_allergies ($score) { return undef; } + +1; diff --git a/exercises/practice/anagram/lib/Anagram.pm b/exercises/practice/anagram/lib/Anagram.pm index 1711ab8d..43b81d25 100644 --- a/exercises/practice/anagram/lib/Anagram.pm +++ b/exercises/practice/anagram/lib/Anagram.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub match_anagrams ( $subject, $candidates ) { return undef; } + +1; diff --git a/exercises/practice/atbash-cipher/lib/AtbashCipher.pm b/exercises/practice/atbash-cipher/lib/AtbashCipher.pm index a10967be..e3b5ccc1 100644 --- a/exercises/practice/atbash-cipher/lib/AtbashCipher.pm +++ b/exercises/practice/atbash-cipher/lib/AtbashCipher.pm @@ -12,3 +12,5 @@ sub encode_atbash ($phrase) { sub decode_atbash ($phrase) { return undef; } + +1; diff --git a/exercises/practice/binary-search-tree/lib/BinarySearchTree.pm b/exercises/practice/binary-search-tree/lib/BinarySearchTree.pm index 82ffae47..53d05e77 100644 --- a/exercises/practice/binary-search-tree/lib/BinarySearchTree.pm +++ b/exercises/practice/binary-search-tree/lib/BinarySearchTree.pm @@ -26,3 +26,5 @@ sub add ($self) { sub sort ($self) { return []; } + +1; diff --git a/exercises/practice/binary-search/lib/BinarySearch.pm b/exercises/practice/binary-search/lib/BinarySearch.pm index 14e7054b..40a0bccc 100644 --- a/exercises/practice/binary-search/lib/BinarySearch.pm +++ b/exercises/practice/binary-search/lib/BinarySearch.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub binary_search ( $array, $value ) { return undef; } + +1; diff --git a/exercises/practice/bob/lib/Bob.pm b/exercises/practice/bob/lib/Bob.pm index ae1dea81..4b1007b8 100644 --- a/exercises/practice/bob/lib/Bob.pm +++ b/exercises/practice/bob/lib/Bob.pm @@ -9,3 +9,5 @@ our @EXPORT_OK = qw; sub hey ($msg) { return undef; # Replace this with your own code to pass the tests. } + +1; diff --git a/exercises/practice/bottle-song/lib/BottleSong.pm b/exercises/practice/bottle-song/lib/BottleSong.pm index 323f51be..546b0ddf 100644 --- a/exercises/practice/bottle-song/lib/BottleSong.pm +++ b/exercises/practice/bottle-song/lib/BottleSong.pm @@ -21,3 +21,5 @@ my %numbers = ( sub sing ( $bottles, $verses ) { return undef; } + +1; diff --git a/exercises/practice/clock/lib/Clock.pm b/exercises/practice/clock/lib/Clock.pm index b46a6ba8..a52df03e 100644 --- a/exercises/practice/clock/lib/Clock.pm +++ b/exercises/practice/clock/lib/Clock.pm @@ -18,3 +18,5 @@ sub add_minutes ( $self, $amount ) { sub subtract_minutes ( $self, $amount ) { return $self; } + +1; diff --git a/exercises/practice/crypto-square/lib/CryptoSquare.pm b/exercises/practice/crypto-square/lib/CryptoSquare.pm index 6b3e0f2d..dce2dba0 100644 --- a/exercises/practice/crypto-square/lib/CryptoSquare.pm +++ b/exercises/practice/crypto-square/lib/CryptoSquare.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub cipher ($text) { return undef; } + +1; diff --git a/exercises/practice/custom-set/lib/CustomSet.pm b/exercises/practice/custom-set/lib/CustomSet.pm index e9a859da..f66ab493 100644 --- a/exercises/practice/custom-set/lib/CustomSet.pm +++ b/exercises/practice/custom-set/lib/CustomSet.pm @@ -47,3 +47,5 @@ sub difference ( $self, $other ) { sub union ( $self, $other ) { return undef; } + +1; diff --git a/exercises/practice/darts/lib/Darts.pm b/exercises/practice/darts/lib/Darts.pm index 5ecd193b..d4209122 100644 --- a/exercises/practice/darts/lib/Darts.pm +++ b/exercises/practice/darts/lib/Darts.pm @@ -7,3 +7,5 @@ our @EXPORT_OK = qw; sub score_dart ( $x, $y ) { } + +1; diff --git a/exercises/practice/difference-of-squares/lib/DifferenceOfSquares.pm b/exercises/practice/difference-of-squares/lib/DifferenceOfSquares.pm index 479a7543..73246b64 100644 --- a/exercises/practice/difference-of-squares/lib/DifferenceOfSquares.pm +++ b/exercises/practice/difference-of-squares/lib/DifferenceOfSquares.pm @@ -16,3 +16,5 @@ sub sum_of_squares ($number) { sub difference_of_squares ($number) { return undef; } + +1; diff --git a/exercises/practice/etl/lib/ETL.pm b/exercises/practice/etl/lib/ETL.pm index fab9e10a..03c3c3fe 100644 --- a/exercises/practice/etl/lib/ETL.pm +++ b/exercises/practice/etl/lib/ETL.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub transform ($data) { return undef; } + +1; diff --git a/exercises/practice/food-chain/lib/FoodChain.pm b/exercises/practice/food-chain/lib/FoodChain.pm index b964281f..f86ee785 100644 --- a/exercises/practice/food-chain/lib/FoodChain.pm +++ b/exercises/practice/food-chain/lib/FoodChain.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub recite ( $start, $end ) { return undef; } + +1; diff --git a/exercises/practice/gigasecond/lib/Gigasecond.pm b/exercises/practice/gigasecond/lib/Gigasecond.pm index c5a3550d..82f0494c 100644 --- a/exercises/practice/gigasecond/lib/Gigasecond.pm +++ b/exercises/practice/gigasecond/lib/Gigasecond.pm @@ -9,3 +9,4 @@ sub add_gigasecond ($time) { return undef; } +1; diff --git a/exercises/practice/grade-school/lib/GradeSchool.pm b/exercises/practice/grade-school/lib/GradeSchool.pm index 7f2e8710..16521c8b 100644 --- a/exercises/practice/grade-school/lib/GradeSchool.pm +++ b/exercises/practice/grade-school/lib/GradeSchool.pm @@ -10,3 +10,5 @@ sub add ( $self, $student, $grade ) { sub roster ( $self, $grade = undef ) { return undef; } + +1; diff --git a/exercises/practice/grains/lib/Grains.pm b/exercises/practice/grains/lib/Grains.pm index 354da219..c7d63e4e 100644 --- a/exercises/practice/grains/lib/Grains.pm +++ b/exercises/practice/grains/lib/Grains.pm @@ -12,3 +12,5 @@ sub grains_on_square ($square) { sub total_grains () { return undef; } + +1; diff --git a/exercises/practice/hamming/lib/Hamming.pm b/exercises/practice/hamming/lib/Hamming.pm index 091dfaca..ef2d00d5 100644 --- a/exercises/practice/hamming/lib/Hamming.pm +++ b/exercises/practice/hamming/lib/Hamming.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub hamming_distance ( $strand1, $strand2 ) { return undef; } + +1; diff --git a/exercises/practice/hello-world/lib/HelloWorld.pm b/exercises/practice/hello-world/lib/HelloWorld.pm index 51199785..6f797c10 100644 --- a/exercises/practice/hello-world/lib/HelloWorld.pm +++ b/exercises/practice/hello-world/lib/HelloWorld.pm @@ -9,3 +9,5 @@ our @EXPORT_OK = qw; sub hello () { return 'Goodbye, Mars!'; } + +1; diff --git a/exercises/practice/house/lib/House.pm b/exercises/practice/house/lib/House.pm index dbd12de6..d4f30ebd 100644 --- a/exercises/practice/house/lib/House.pm +++ b/exercises/practice/house/lib/House.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub recite ( $start, $end ) { return undef; } + +1; diff --git a/exercises/practice/kindergarten-garden/lib/KindergartenGarden.pm b/exercises/practice/kindergarten-garden/lib/KindergartenGarden.pm index db2434db..253634a8 100644 --- a/exercises/practice/kindergarten-garden/lib/KindergartenGarden.pm +++ b/exercises/practice/kindergarten-garden/lib/KindergartenGarden.pm @@ -15,3 +15,5 @@ sub plants ( $diagram, $student ) { return undef; } + +1; diff --git a/exercises/practice/largest-series-product/lib/LargestSeriesProduct.pm b/exercises/practice/largest-series-product/lib/LargestSeriesProduct.pm index a3ef0502..e3c411eb 100644 --- a/exercises/practice/largest-series-product/lib/LargestSeriesProduct.pm +++ b/exercises/practice/largest-series-product/lib/LargestSeriesProduct.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub largest_product ( $digits, $span ) { return undef; } + +1; diff --git a/exercises/practice/leap/lib/Leap.pm b/exercises/practice/leap/lib/Leap.pm index a95bffd0..b2d0defe 100644 --- a/exercises/practice/leap/lib/Leap.pm +++ b/exercises/practice/leap/lib/Leap.pm @@ -9,3 +9,5 @@ our @EXPORT_OK = qw; sub is_leap_year ($year) { return undef; # Replace this with your own code to pass the tests. } + +1; diff --git a/exercises/practice/luhn/lib/Luhn.pm b/exercises/practice/luhn/lib/Luhn.pm index cfb4c8e4..51e20a36 100644 --- a/exercises/practice/luhn/lib/Luhn.pm +++ b/exercises/practice/luhn/lib/Luhn.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub is_luhn_valid ($number) { return undef; } + +1; diff --git a/exercises/practice/matrix/lib/Matrix.pm b/exercises/practice/matrix/lib/Matrix.pm index 3f2057ca..9d1b3c6f 100644 --- a/exercises/practice/matrix/lib/Matrix.pm +++ b/exercises/practice/matrix/lib/Matrix.pm @@ -12,3 +12,5 @@ sub extract_row ( $matrix, $row ) { sub extract_column ( $matrix, $column ) { return undef; } + +1; diff --git a/exercises/practice/meetup/lib/Meetup.pm b/exercises/practice/meetup/lib/Meetup.pm index d2a1a524..7a11d502 100644 --- a/exercises/practice/meetup/lib/Meetup.pm +++ b/exercises/practice/meetup/lib/Meetup.pm @@ -9,3 +9,4 @@ sub meetup ($desc) { return undef; } +1; diff --git a/exercises/practice/minesweeper/lib/Minesweeper.pm b/exercises/practice/minesweeper/lib/Minesweeper.pm index b0e25086..3cc032eb 100644 --- a/exercises/practice/minesweeper/lib/Minesweeper.pm +++ b/exercises/practice/minesweeper/lib/Minesweeper.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub annotate ($minefield) { return undef; } + +1; diff --git a/exercises/practice/nucleotide-count/lib/NucleotideCount.pm b/exercises/practice/nucleotide-count/lib/NucleotideCount.pm index eb760f71..ad184f26 100644 --- a/exercises/practice/nucleotide-count/lib/NucleotideCount.pm +++ b/exercises/practice/nucleotide-count/lib/NucleotideCount.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub count_nucleotides ($strand) { return undef; } + +1; diff --git a/exercises/practice/ocr-numbers/lib/OCRNumbers.pm b/exercises/practice/ocr-numbers/lib/OCRNumbers.pm index 2a0825fc..d2721258 100644 --- a/exercises/practice/ocr-numbers/lib/OCRNumbers.pm +++ b/exercises/practice/ocr-numbers/lib/OCRNumbers.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub convert_ocr ($string) { return undef; } + +1; diff --git a/exercises/practice/palindrome-products/lib/PalindromeProducts.pm b/exercises/practice/palindrome-products/lib/PalindromeProducts.pm index b0bb762e..b7f80ed8 100644 --- a/exercises/practice/palindrome-products/lib/PalindromeProducts.pm +++ b/exercises/practice/palindrome-products/lib/PalindromeProducts.pm @@ -12,3 +12,5 @@ sub smallest_palindrome ( $min, $max ) { sub largest_palindrome ( $min, $max ) { return undef; } + +1; diff --git a/exercises/practice/pascals-triangle/lib/PascalsTriangle.pm b/exercises/practice/pascals-triangle/lib/PascalsTriangle.pm index c681691f..db94e770 100644 --- a/exercises/practice/pascals-triangle/lib/PascalsTriangle.pm +++ b/exercises/practice/pascals-triangle/lib/PascalsTriangle.pm @@ -9,3 +9,4 @@ sub pascal_rows ($rows) { return undef; } +1; diff --git a/exercises/practice/phone-number/lib/PhoneNumber.pm b/exercises/practice/phone-number/lib/PhoneNumber.pm index 0e94ad2d..f9bae17e 100644 --- a/exercises/practice/phone-number/lib/PhoneNumber.pm +++ b/exercises/practice/phone-number/lib/PhoneNumber.pm @@ -21,3 +21,4 @@ sub clean_number ($number) { return undef; } +1; diff --git a/exercises/practice/pig-latin/lib/PigLatin.pm b/exercises/practice/pig-latin/lib/PigLatin.pm index edfcdf51..7acde0ee 100644 --- a/exercises/practice/pig-latin/lib/PigLatin.pm +++ b/exercises/practice/pig-latin/lib/PigLatin.pm @@ -9,3 +9,4 @@ sub translate ($phrase) { return undef; } +1; diff --git a/exercises/practice/prime-factors/lib/PrimeFactors.pm b/exercises/practice/prime-factors/lib/PrimeFactors.pm index bb5da7e3..62e388a3 100644 --- a/exercises/practice/prime-factors/lib/PrimeFactors.pm +++ b/exercises/practice/prime-factors/lib/PrimeFactors.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub factors ($number) { return undef; } + +1; diff --git a/exercises/practice/proverb/lib/Proverb.pm b/exercises/practice/proverb/lib/Proverb.pm index cd386b71..d931affa 100644 --- a/exercises/practice/proverb/lib/Proverb.pm +++ b/exercises/practice/proverb/lib/Proverb.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub proverb ($items) { return undef; } + +1; diff --git a/exercises/practice/pythagorean-triplet/lib/PythagoreanTriplet.pm b/exercises/practice/pythagorean-triplet/lib/PythagoreanTriplet.pm index 8b7d519c..fafab971 100644 --- a/exercises/practice/pythagorean-triplet/lib/PythagoreanTriplet.pm +++ b/exercises/practice/pythagorean-triplet/lib/PythagoreanTriplet.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub triplets_with_sum ($sum) { return undef; } + +1; diff --git a/exercises/practice/queen-attack/lib/Queen.pm b/exercises/practice/queen-attack/lib/Queen.pm index 2cd3d8c1..723d8a6b 100644 --- a/exercises/practice/queen-attack/lib/Queen.pm +++ b/exercises/practice/queen-attack/lib/Queen.pm @@ -14,3 +14,5 @@ has column => ( sub can_attack ( $self, $other ) { return undef; } + +1; diff --git a/exercises/practice/raindrops/lib/Raindrops.pm b/exercises/practice/raindrops/lib/Raindrops.pm index 28776d2f..b6096a7a 100644 --- a/exercises/practice/raindrops/lib/Raindrops.pm +++ b/exercises/practice/raindrops/lib/Raindrops.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub raindrop ($number) { return undef; } + +1; diff --git a/exercises/practice/rna-transcription/lib/RNA.pm b/exercises/practice/rna-transcription/lib/RNA.pm index 6905d304..ee8f0e5f 100644 --- a/exercises/practice/rna-transcription/lib/RNA.pm +++ b/exercises/practice/rna-transcription/lib/RNA.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub to_rna ($dna) { return undef; } + +1; diff --git a/exercises/practice/robot-name/lib/RobotName.pm b/exercises/practice/robot-name/lib/RobotName.pm index 918154a8..01078222 100644 --- a/exercises/practice/robot-name/lib/RobotName.pm +++ b/exercises/practice/robot-name/lib/RobotName.pm @@ -11,3 +11,5 @@ has name => ( is => 'rwp' ); sub reset_name ($self) { return undef; # Replace this with your own code to pass the tests. } + +1; diff --git a/exercises/practice/robot-simulator/lib/Robot.pm b/exercises/practice/robot-simulator/lib/Robot.pm index a1b3b473..3d40f38f 100644 --- a/exercises/practice/robot-simulator/lib/Robot.pm +++ b/exercises/practice/robot-simulator/lib/Robot.pm @@ -23,3 +23,5 @@ has direction => ( sub enact ( $self, $instructions ) { return $self; } + +1; diff --git a/exercises/practice/roman-numerals/lib/RomanNumerals.pm b/exercises/practice/roman-numerals/lib/RomanNumerals.pm index fc65d9bc..49e5554a 100644 --- a/exercises/practice/roman-numerals/lib/RomanNumerals.pm +++ b/exercises/practice/roman-numerals/lib/RomanNumerals.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub to_roman ($number) { return undef; } + +1; diff --git a/exercises/practice/saddle-points/lib/SaddlePoints.pm b/exercises/practice/saddle-points/lib/SaddlePoints.pm index 8d35c4df..65b487ae 100644 --- a/exercises/practice/saddle-points/lib/SaddlePoints.pm +++ b/exercises/practice/saddle-points/lib/SaddlePoints.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub saddle_points ($matrix) { return undef; } + +1; diff --git a/exercises/practice/say/lib/Say.pm b/exercises/practice/say/lib/Say.pm index 9f638811..e9c7fc9b 100644 --- a/exercises/practice/say/lib/Say.pm +++ b/exercises/practice/say/lib/Say.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub say_number ($number) { return undef; } + +1; diff --git a/exercises/practice/scrabble-score/lib/Scrabble.pm b/exercises/practice/scrabble-score/lib/Scrabble.pm index b5b021b1..244ba626 100644 --- a/exercises/practice/scrabble-score/lib/Scrabble.pm +++ b/exercises/practice/scrabble-score/lib/Scrabble.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub scrabble_score ($word) { return undef; } + +1; diff --git a/exercises/practice/secret-handshake/lib/SecretHandshake.pm b/exercises/practice/secret-handshake/lib/SecretHandshake.pm index 92959edf..278ed8b7 100644 --- a/exercises/practice/secret-handshake/lib/SecretHandshake.pm +++ b/exercises/practice/secret-handshake/lib/SecretHandshake.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub handshake ($number) { return undef; } + +1; diff --git a/exercises/practice/series/lib/Series.pm b/exercises/practice/series/lib/Series.pm index abf39664..caf39500 100644 --- a/exercises/practice/series/lib/Series.pm +++ b/exercises/practice/series/lib/Series.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub slices ( $series, $slice_length ) { return undef; } + +1; diff --git a/exercises/practice/sieve/lib/Sieve.pm b/exercises/practice/sieve/lib/Sieve.pm index b9c23b74..645f4e8e 100644 --- a/exercises/practice/sieve/lib/Sieve.pm +++ b/exercises/practice/sieve/lib/Sieve.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub find_primes ($limit) { return undef; } + +1; diff --git a/exercises/practice/simple-cipher/lib/SimpleCipher.pm b/exercises/practice/simple-cipher/lib/SimpleCipher.pm index bd1351fc..3f852100 100644 --- a/exercises/practice/simple-cipher/lib/SimpleCipher.pm +++ b/exercises/practice/simple-cipher/lib/SimpleCipher.pm @@ -18,3 +18,5 @@ sub decode ($self) { sub _build_key ($self) { return undef; } + +1; diff --git a/exercises/practice/space-age/lib/SpaceAge.pm b/exercises/practice/space-age/lib/SpaceAge.pm index 6d9d8671..196fc3d9 100644 --- a/exercises/practice/space-age/lib/SpaceAge.pm +++ b/exercises/practice/space-age/lib/SpaceAge.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub age_on_planet ( $planet, $seconds ) { return undef; } + +1; diff --git a/exercises/practice/strain/lib/Strain.pm b/exercises/practice/strain/lib/Strain.pm index dabef319..b093d63f 100644 --- a/exercises/practice/strain/lib/Strain.pm +++ b/exercises/practice/strain/lib/Strain.pm @@ -12,3 +12,5 @@ sub keep ( $input, $function ) { sub discard ( $input, $function ) { return undef; } + +1; diff --git a/exercises/practice/sublist/lib/Sublist.pm b/exercises/practice/sublist/lib/Sublist.pm index a533e774..f074e279 100644 --- a/exercises/practice/sublist/lib/Sublist.pm +++ b/exercises/practice/sublist/lib/Sublist.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub compare_lists ( $list1, $list2 ) { return undef; } + +1; diff --git a/exercises/practice/sum-of-multiples/lib/SumOfMultiples.pm b/exercises/practice/sum-of-multiples/lib/SumOfMultiples.pm index 7d842886..1003760c 100644 --- a/exercises/practice/sum-of-multiples/lib/SumOfMultiples.pm +++ b/exercises/practice/sum-of-multiples/lib/SumOfMultiples.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub sum_of_multiples ( $factors, $limit ) { return undef; } + +1; diff --git a/exercises/practice/triangle/lib/Triangle.pm b/exercises/practice/triangle/lib/Triangle.pm index ca0b55a7..2502247f 100644 --- a/exercises/practice/triangle/lib/Triangle.pm +++ b/exercises/practice/triangle/lib/Triangle.pm @@ -16,3 +16,5 @@ sub is_isosceles ($triangle) { sub is_scalene ($triangle) { return undef; } + +1; diff --git a/exercises/practice/twelve-days/lib/TwelveDays.pm b/exercises/practice/twelve-days/lib/TwelveDays.pm index 756b5180..0de15fee 100644 --- a/exercises/practice/twelve-days/lib/TwelveDays.pm +++ b/exercises/practice/twelve-days/lib/TwelveDays.pm @@ -9,3 +9,4 @@ sub recite ( $start, $end ) { return ''; } +1; diff --git a/exercises/practice/two-fer/lib/TwoFer.pm b/exercises/practice/two-fer/lib/TwoFer.pm index 28c2811b..54beac98 100644 --- a/exercises/practice/two-fer/lib/TwoFer.pm +++ b/exercises/practice/two-fer/lib/TwoFer.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub two_fer ( $name = undef ) { return undef; } + +1; diff --git a/exercises/practice/word-count/lib/WordCount.pm b/exercises/practice/word-count/lib/WordCount.pm index cae25585..b8064369 100644 --- a/exercises/practice/word-count/lib/WordCount.pm +++ b/exercises/practice/word-count/lib/WordCount.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub count_words ($sentence) { return undef; } + +1; diff --git a/exercises/practice/wordy/lib/Wordy.pm b/exercises/practice/wordy/lib/Wordy.pm index 148fe7a0..ddb7b243 100644 --- a/exercises/practice/wordy/lib/Wordy.pm +++ b/exercises/practice/wordy/lib/Wordy.pm @@ -8,3 +8,5 @@ our @EXPORT_OK = qw; sub answer ($question) { return undef; } + +1; diff --git a/templates/module.mustache b/templates/module.mustache index e675dfd9..5a8f5d2b 100644 --- a/templates/module.mustache +++ b/templates/module.mustache @@ -11,6 +11,6 @@ use experimental qw;{{/older_perl_support}} use Exporter qw; our @EXPORT_OK = qw<{{&subs}}>;{{/subs}}{{#module_file}} -{{&module_file}}{{/module_file}}{{#older_perl_support}} +{{&module_file}}{{/module_file}} -1;{{/older_perl_support}} +1;