{"body":"perl6 -I. -e '                    \n\n\nuse Red;\nmy $*RED-DB = database \"SQLite\";\n\nmodel Bla { ... }\nmodel Ble { ... }\nmodel Bli { ... }\n\nmodel Bla {\n   has UInt $.id     is serial;\n   has UInt $!ble-id is referencing( *.id, :model<Ble>);\n   has      $.ble    is relationship( *.ble-id, :model<Ble> );\n}\n\nmodel Ble {\n   has UInt $.id     is serial;\n   has UInt $!bli-id is referencing( *.id, :model<Bli> );\n   has      $.bli    is relationship( *.bli-id, :model<Bli> );\n}\n\nmodel Bli {\n   has UInt $.id    is serial;\n   has Int  $.value is column;\n}\n\nBla.^create-table; Ble.^create-table; Bli.^create-table;\nmy $*RED-DEBUG = True;\n\nsay Bla.^all.grep: { .ble.bli.value == 42 }\n\n'\nSQL : SELECT\n   bla.id , bla.ble_id as \"ble-id\"\nFROM\n   bla\n    JOIN ble as bla_ble ON bla.ble_id = bla_ble.id\t\n    JOIN bli as bla_ble_bli ON bla_ble.bli_id = bla_ble_bli.id\t\nWHERE\n   bla_ble_bli.value = 42\nBIND: []\n()","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/fDWKvjBH","modified":1572393470,"id":"fDWKvjBH","size":894,"lines":43,"own_paste":false,"theme":"","date":1572393470}