use DBIx::Squirrel database_entities => [qw/db get_artist_by_id/];
use DBIx::Squirrel::Iterator qw/iterator result result_offset/;
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 {print result_offset, " ", iterator, "\n"; result} => as_json() => stderr("%s\n"))->single;
}
db->disconnect();