Merge pull request #3361 from lancew/branch-for-challenge-95

Adding Lance Wicks solution to Challenge 96

3 files changed, 40 insertions, 0 deletions

diff --git a/challenge-096/lance-wicks/blog.txt b/challenge-096/lance-wicks/blog.txt
new file mode 100644
index 0000000000..842104bd6c
--- /dev/null
+++ b/challenge-096/lance-wicks/blog.txt
@@ -0,0 +1 @@
+https://perl.kiwi/tales/2021/01/22/perl-weekly-challenge/
diff --git a/challenge-096/lance-wicks/perl/lib/pw96.pm b/challenge-096/lance-wicks/perl/lib/pw96.pm
new file mode 100644
index 0000000000..5ff19144de
--- /dev/null
+++ b/challenge-096/lance-wicks/perl/lib/pw96.pm
@@ -0,0 +1,17 @@
+package pw96;
+
+use strict;
+use warnings;
+
+use Moo;
+
+sub reverse_words {
+    my ($self, $phrase) = @_;
+    
+    my @words = split ' ', $phrase;
+    return join ' ', reverse @words;
+}
+
+
+1;
+
diff --git a/challenge-096/lance-wicks/perl/t/00-words.t b/challenge-096/lance-wicks/perl/t/00-words.t
new file mode 100644
index 0000000000..75f69e73f2
--- /dev/null
+++ b/challenge-096/lance-wicks/perl/t/00-words.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test2::V0 -target => 'pw96';
+
+
+can_ok($CLASS, 'reverse_words');
+
+is $CLASS->reverse_words(
+        'The Weekly Challenge' 
+    ), 
+    'Challenge Weekly The'
+    , 'Example one is correct';
+
+
+is $CLASS->reverse_words(
+        '    Perl and   Raku are  part of the same family  ' 
+    ), 
+    'family same the of part are Raku and Perl'
+    , 'Example two is correct';
+
+done_testing;