From 0fbcee116b0221c3985561b5cc91b4e782705b20 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 1 Feb 2008 12:41:34 -0500
Subject: minor syntax cleanups

---
 lib/Games/Word.pm          | 10 +++++++---
 lib/Games/Word/Wordlist.pm | 39 +++++++++++++++++++++++----------------
 2 files changed, 30 insertions(+), 19 deletions(-)

diff --git a/lib/Games/Word.pm b/lib/Games/Word.pm
index 89610d4..de51ad0 100644
--- a/lib/Games/Word.pm
+++ b/lib/Games/Word.pm
@@ -11,13 +11,15 @@ use Test::Deep::NoTest;
 
 sub random_permutation {
     my $word = shift;
+    my $perm_index = shift;
+
     return '' if $word eq '';
 
     use integer;
+
     my $len = length $word;
-    my $perm_index = shift;
     $perm_index = defined($perm_index) ? $perm_index :
-                                         int(rand(factorial($len)));
+                                         int rand factorial $len;
     die "invalid permutation index" if $perm_index >= factorial($len) ||
                                        $perm_index < 0;
     my $current_index = $perm_index / factorial($len - 1);
@@ -38,9 +40,11 @@ sub is_permutation {
 
 sub all_permutations {
     my $word = shift;
+
     my @ret = ();
     push @ret, random_permutation($word, $_)
-        for (0..(factorial(length($word)) - 1));
+        for 0..(factorial(length $word) - 1);
+
     return @ret;
 }
 
diff --git a/lib/Games/Word/Wordlist.pm b/lib/Games/Word/Wordlist.pm
index d6045db..702f5a1 100644
--- a/lib/Games/Word/Wordlist.pm
+++ b/lib/Games/Word/Wordlist.pm
@@ -32,7 +32,7 @@ sub new {
                 chomp;
                 $self->{word_hash}{$_} = 1;
             }
-            $self->{word_list} = [keys %{ $self->{word_hash} }];
+            $self->{word_list} = [keys %{$self->{word_hash}}];
         }
     }
 
@@ -46,48 +46,47 @@ sub add_words {
 
     die "Can't add words to a non-cached word list"
         unless $self->{cache};
+
     if (ref($word_list) eq 'ARRAY') {
-        for (@$word_list) {
-            $self->{word_hash}{$_} = 1;
-        }
+        $self->{word_hash}{$_} = 1 for @$word_list;
     }
     else {
         open my $fh, '<', $word_list or die "Opening $word_list failed";
-        for (<$fh>) {
-            $self->{word_hash}{$_} = 1;
-        }
+        $self->{word_hash}{$_} = 1 for <$fh>;
     }
     $self->{word_list} = [keys %{$self->{word_hash}}];
 }
 
 sub remove_words {
     my $self = shift;
-    for (@_) {
-        delete $self->{word_hash}{$_};
-    }
+
+    delete $self->{word_hash}{$_} for (@_);
     $self->{word_list} = [keys %{$self->{word_hash}}];
 }
 
 sub words {
     my $self = shift;
+
     return unless $self->{cache};
     return @{$self->{word_list}};
 }
 
 sub _random_word_cache {
     my $self = shift;
-    my @word_list = @{ $self->{word_list} };
+
+    my @word_list = @{$self->{word_list}};
     die "No words in word list" unless @word_list;
-    return $word_list[int(rand(@word_list))];
+
+    return $word_list[int rand @word_list];
 }
 
 sub _random_word_nocache {
     my $self = shift;
-    my $word;
 
     open my $fh, '<', $self->{file} or die "Opening $self->{file} failed";
+    my $word;
     while (<$fh>) {
-        $word = $_ if int(rand($.)) == 0;
+        $word = $_ if int(rand $.) == 0;
     }
     chomp $word;
 
@@ -96,13 +95,16 @@ sub _random_word_nocache {
 
 sub random_word {
     my $self = shift;
+
     return $self->_random_word_cache if $self->{cache};
     return $self->_random_word_nocache;
 }
 
 sub _is_word_cache {
     my $self = shift;
-    return $self->{word_hash}{$_[0]};
+    my $word = shift;
+
+    return $self->{word_hash}{$word};
 }
 
 sub _is_word_nocache {
@@ -121,6 +123,7 @@ sub _is_word_nocache {
 
 sub is_word {
     my $self = shift;
+
     return $self->_is_word_cache(@_) if $self->{cache};
     return $self->_is_word_nocache(@_);
 }
@@ -128,7 +131,8 @@ sub is_word {
 sub _each_word_cache {
     my $self = shift;
     my $code = shift;
-    &$code($_) for @{ $self->{word_list} };
+
+    &$code($_) for @{$self->{word_list}};
 }
 
 sub _each_word_nocache {
@@ -145,6 +149,7 @@ sub _each_word_nocache {
 
 sub _each_word {
     my $self = shift;
+
     return $self->_each_word_cache(@_) if $self->{cache};
     return $self->_each_word_nocache(@_);
 }
@@ -159,8 +164,10 @@ sub anagrams {
 sub words_like {
     my $self = shift;
     my $re = shift;
+
     my @words = ();
     $self->_each_word(sub { push @words, $_[0] if $_[0] =~ $re });
+
     return @words;
 }
 
-- 
cgit v1.2.3-54-g00ecf