From 4400ff6be8c3e149ba427718f55ebb2ef48183e5 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Sat, 2 Feb 2008 18:47:48 -0500
Subject: make all functions without a useful return value return undef

---
 lib/Games/Word/Wordlist.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/Games/Word/Wordlist.pm b/lib/Games/Word/Wordlist.pm
index 87bb7d6..107b85f 100644
--- a/lib/Games/Word/Wordlist.pm
+++ b/lib/Games/Word/Wordlist.pm
@@ -118,6 +118,8 @@ sub add_words {
         $self->{word_hash}{$_} = 1 for <$fh>;
     }
     $self->{word_list} = [keys %{$self->{word_hash}}];
+
+    return;
 }
 
 =head2 remove_words
@@ -136,6 +138,8 @@ sub remove_words {
 
     delete $self->{word_hash}{$_} for (@_);
     $self->{word_list} = [keys %{$self->{word_hash}}];
+
+    return;
 }
 
 =head2 words
@@ -248,6 +252,8 @@ sub _each_word_cache {
     my $code = shift;
 
     &$code($_) for @{$self->{word_list}};
+
+    return;
 }
 
 sub _each_word_nocache {
@@ -260,6 +266,8 @@ sub _each_word_nocache {
         chomp;
         &$code($_);
     }
+
+    return;
 }
 
 sub _each_word {
-- 
cgit v1.2.3-54-g00ecf