exercism-perl5

commit cd1c08ebfcdcfd466c25d175f7c153f5e5e3c92f
parent a27aa361f554abb126e7f01259346912bc08b355
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Wed, 29 Dec 2021 02:38:54 +0000

add one more comment

Diffstat:
M
wordy/Wordy.pm
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/wordy/Wordy.pm b/wordy/Wordy.pm
@@ -19,6 +19,7 @@ sub answer {
   my ($question) = @_;
   # if input does not begin with "What is":
   die "unknown operation" if ($question !~ m/^What is/);
+  # find all operands and operations based on $partern and store in @m
   my @m = ($question =~ m/$pattern/g);
   die "syntax error" unless (scalar @m); # no operands or operations
   if (scalar @m == 1) {