exercism-perl5

commit 0daf4a24cbdb1a84a87e2ab7ff87090cc50ee1fc
parent 30bc1cb3625751ae8f43bac02610edf8faddbd97
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Sun, 19 Dec 2021 16:49:13 +0000

get all tests to pass

Diffstat:
M
word-count/WordCount.pm
 | 
7
+------

1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/word-count/WordCount.pm b/word-count/WordCount.pm
@@ -1,23 +1,18 @@
 package WordCount;
 use strict;
 use warnings;
-use v5.22;
 use Exporter qw<import>;
 our @EXPORT_OK = qw<count_words>;
-use Data::Dumper;
 
 sub count_words {
   my ($sentence) = @_;
-  #say $sentence;
   my %word_count;
   $sentence =~ s/(.)/\L$1/gi;
-  my @words = $sentence =~ m/\b{wb}(\w+)\b{wb}/gi;
+  my @words = $sentence =~ m/([\w\d]+(?:'t)?)/gi;
   foreach (@words) {
       $word_count{$_}++;
       #say $_;
   }
-  #print Dumper (\%word_count);
-  #return undef;
   return \%word_count;
 }