{"body":"% perl6 -I. -e '\nuse Red <red-do>;\nmodel Bla is table<not_bla> { has UInt $.id is serial; has Str $.name is column }\nred-defaults pg => \\(\"Pg\", :default), sqlite => \\(\"SQLite\");\nred-do \"sqlite\" => { Bla.^create-table: :if-not-exists };\n\nred-do\n    \"sqlite\" => {             \n        red-tap \"dup\", -> $record {\n            $record.^save: :insert\n        }\n    },\n    \"pg\" => {\n         red-emit \"dup\", $_ for Bla.^all\n    },\n;\n\nred-do :with<sqlite>, { say \"sqlite => \", $_ for Bla.^all.batch(3).head }\nred-do :with<pg>,     { say \"pg     => \", $_ for Bla.^all.batch(3).head }\n'\nsqlite => Bla.new(id => 1, name => \"bla\")\nsqlite => Bla.new(id => 2, name => \"ble\")\nsqlite => Bla.new(id => 3, name => \"bli\")\npg     => Bla.new(id => 1, name => \"bla\")\npg     => Bla.new(id => 2, name => \"ble\")\npg     => Bla.new(id => 3, name => \"bli\")","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/7mozd53M","modified":1569094392,"id":"7mozd53M","size":829,"lines":26,"own_paste":false,"theme":"","date":1569094392}