{"body":"MacBook-Pro-de-Fernando:BestTree fernando$ cat Tree.pm6 \nuse Red;\n\nmodel Tree {\n    has UInt    $!id            is id;\n    has Rat     $.latitude      is column;\n    has Rat     $.longitude     is column;\n    has Rat     $.height        is column;\n    has Str     $.description   is column;\n\n    ::?CLASS.^add-unique-constraint: { .latitude, .longitude };\n\n    method all-trees {\n        self.^all.sort: -*.height\n    }\n\n    method find-tree(Rat $longitude, Rat $latitude) {\n        self.^find: :$longitude, :$latitude\n    }\n\n    method suggest-tree(Rat $longitude, Rat $latitude, Rat $height, Str $description) {\n        self.^create: :$longitude, :$latitude, :$height, :$description\n    }\n}\nMacBook-Pro-de-Fernando:BestTree fernando$ perl6 -I../Red2/lib/ -MRed -I. -MTree -e '\n\n\nmy $*RED-DB = database \"SQLite\"; Tree.^create-table;\n\nTree.suggest-tree: 1.1, 2.2, 3.3, \"bla\";\nTree.suggest-tree: 1.2, 2.3, 3.4, \"ble\";\nsay Tree.all-trees;\n'\n(Tree.new(latitude => \"2.3\", longitude => \"1.2\", height => \"3.4\", description => \"ble\") Tree.new(latitude => \"2.2\", longitude => \"1.1\", height => \"3.3\", description => \"bla\"))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/RhTFnJMn","modified":1545519284,"id":"RhTFnJMn","size":1114,"lines":34,"own_paste":false,"theme":"","date":1545519284}