Help for this page

Select Code to Download

Select or download this

use Algorithm::Loops qw( MapCar );

my @data = MapCar { [ @_ ] }
           @{ $sth->fetchall_arrayref() };

Select or download this

use Algorithm::Loops qw( MapCar );

my @data = MapCar { [ @_ ] }
           @{ $dbh->selectall_arrayref($sth_or_sql) };