[Catalyst] looping

[Jonathan Rockway]

Will Smith writes:
> my $recordset = [$c->model('myDB::Books')->search( authorid =>
> "${authorid}" )];
> while(my $name = $recordset->next){
>             $lname[$i] = $name->lname;
>             $fname[$i] = $name->fname;
>             $i = $i + 1;
>         }


Wrong list, but here's a hint... arrays aren't iterators.  Get rid of
the []s.

-- 
package JAPH;use Catalyst qw/-Debug/;($;=JAPH)->config(name => do {
$,.=reverse qw[Jonathan tsu rehton lre rekca Rockway][$_].[split //,
";$;"]->[$_].q; ;for 1..4;$,=~s;^.;;;$,});$;->setup;