diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-02-02 18:47:48 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-02-02 18:47:48 -0500 |
commit | 4400ff6be8c3e149ba427718f55ebb2ef48183e5 (patch) | |
tree | b3cebfc9788a8d448eab7284075e8cdc6b30b1f6 /lib | |
parent | 36be13d5149e8b6180a7aa7693106795414ee3e2 (diff) | |
download | games-word-4400ff6be8c3e149ba427718f55ebb2ef48183e5.tar.gz games-word-4400ff6be8c3e149ba427718f55ebb2ef48183e5.zip |
make all functions without a useful return value return undef
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Games/Word/Wordlist.pm | 8 |
1 files changed, 8 insertions, 0 deletions
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 { |