Permalink
Browse files

Give t9_find_words a nicer documentation

  • Loading branch information...
1 parent ebf7f49 commit 1632a7f2db6190a0450241f15b1498d6f174ed5a @tadzik committed Apr 14, 2012
Showing with 1 addition and 3 deletions.
  1. +1 −3 lib/Text/T9.pm
View
@@ -23,7 +23,7 @@ my %default-keys;
%default-keys{$_} = 8 for <t u v>;
%default-keys{$_} = 9 for <w x y z>;
-#= get a list of matching words
+#= get a list of words from @words matching $input
sub t9_find_words(Int $input as Str, @words, %optkeys?) is export {
my %keys = %default-keys, %optkeys;
gather for @words -> $candidate {
@@ -33,5 +33,3 @@ sub t9_find_words(Int $input as Str, @words, %optkeys?) is export {
}
}
}
-
-

0 comments on commit 1632a7f

Please sign in to comment.