[Catalyst-commits] r7289 - trunk/examples/CatalystAdvent/root/2007/pen

zby at dev.catalyst.perl.org zby at dev.catalyst.perl.org
Wed Dec 12 20:40:51 GMT 2007


Author: zby
Date: 2007-12-12 20:40:51 +0000 (Wed, 12 Dec 2007)
New Revision: 7289

Modified:
   trunk/examples/CatalystAdvent/root/2007/pen/15.pod
Log:
wantarray is in search

Modified: trunk/examples/CatalystAdvent/root/2007/pen/15.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2007/pen/15.pod	2007-12-12 20:30:17 UTC (rev 7288)
+++ trunk/examples/CatalystAdvent/root/2007/pen/15.pod	2007-12-12 20:40:51 UTC (rev 7289)
@@ -58,8 +58,7 @@
             $self = $self->search({}, { join => $relation });
             $columns->{$full_name} = $params->{$column};
         }
-        $self = $self->search( $columns, $attrs );
-        return (wantarray ? $self->all : $self)
+        return $self->search( $columns, $attrs );
     }
 
 You use it like that:




More information about the Catalyst-commits mailing list