From 1632a7f2db6190a0450241f15b1498d6f174ed5a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tadeusz=20So=C5=9Bnierz?= <tadzikes@gmail.com>
Date: Sat, 14 Apr 2012 19:53:03 +0200
Subject: [PATCH] Give t9_find_words a nicer documentation

---
 lib/Text/T9.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib/Text/T9.pm b/lib/Text/T9.pm
index 0c0f06c..bf00fb6 100644
--- a/lib/Text/T9.pm
+++ b/lib/Text/T9.pm
@@ -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 {
         }
     }
 }
-
-