From 00781447486ddd3fcaf433abeb2bf76f5acf739b Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@iglu.org.il>
Date: Fri, 2 Sep 2011 13:08:49 +0300
Subject: [PATCH] Convert away from more for $_.

---
 Text-Table/lib/Text/Table.pm | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/Text-Table/lib/Text/Table.pm b/Text-Table/lib/Text/Table.pm
index 6d6de55..f16c462 100644
--- a/Text-Table/lib/Text/Table.pm
+++ b/Text-Table/lib/Text/Table.pm
@@ -409,12 +409,16 @@ sub add {
         $tb->_entitle( [ ('') x @_] );
     }
 
-    $tb->_add( @$_) for 
+    foreach my $row (
         _transpose( 
             [
                 map { [ defined() ? split( /\n/ ) : '' ] } @_
             ]
-        );
+        )
+    )
+    {
+        $tb->_add(@$row);
+    }
     $tb->_clear_cache;
 
     return $tb;
@@ -424,7 +428,9 @@ sub add {
 sub _add {
     my $tb = shift;
 
-    push @$_, shift for @{ $tb->_cols};
+    foreach my $col ( @{ $tb->_cols} ) {
+        push @{$col}, shift(@_);
+    }
 
     $tb->_clear_cache;
 
@@ -434,9 +440,13 @@ sub _add {
 # add one or more data lines
 sub load {
     my $tb = shift;
-    for ( @_ ) {
-        defined $_ or $_ = '';
-        ref($_) eq 'ARRAY' ? $tb->add( @$_) : $tb->add( split);
+    foreach my $row ( @_ ) {
+        if (!defined($row)) {
+            $row = '';
+        }
+        $tb->add(
+            (ref($row) eq 'ARRAY') ? (@$row) : (split ' ',$row)
+        )
     }
     $tb;
 }