db
do
{
DBIx::Squirrel->
connect
(
"dbi:SQLite:dbname=./t/data/chinook.db"
,
""
,
""
,
{
PrintError
=> !!0,
RaiseError
=> !!1,
sqlite_unicode
=> !!1,
},
);
};
get_artists
do
{
db->results(
"SELECT ArtistId, Name FROM artists LIMIT 100"
=>
sub
{
my
(
$artist
) =
@_
;
printf
"---- %s\n"
, database;
printf
"%4d Name: %s\n"
, result_offset,
$artist
->Name;
return
$artist
;
} =>
sub
{
$_
->ArtistId}
);
};
get_artists->all;
db->disconnect();