db
do
{
DBIx::Squirrel->
connect
(
"dbi:SQLite:dbname=./t/data/chinook.db"
,
""
,
""
,
{
PrintError
=> !!0,
RaiseError
=> !!1,
sqlite_unicode
=> !!1,
},
);
};
get_artist_by_id
do
{
db->results(
"SELECT * FROM artists WHERE ArtistId=? LIMIT 1"
)->slice({});
};
foreach
my
$id
(1 .. 9) {
get_artist_by_id(
$id
=>
sub
{
result_offset,
" "
, iterator,
"\n"
; result} => as_json() => stderr(
"%s\n"
))->single;
}
db->disconnect();