# Pastebin QkClxze7
perl6 -I. -MRed -e '
use Red::AST::Infix;
model Bla { has $!id is serial; has Int $.ble is column }
my $*RED-DB = database "SQLite";
Bla.^create-table;
my $*RED-DEBUG = True;

.say for Bla.^all.grep: { class :: does Red::AST::Infix { method op {"my-crazy-operator"}; method returns {} }.new: .id, .ble }    

'
SQL : SELECT
   bla.id , bla.ble 
FROM
   bla
WHERE
   bla.id my-crazy-operator bla.ble
    Unknown Error!!!
    Please, copy this backtrace and open an issue on https://github.com/FCO/Red/issues/new
    Driver: Red::Driver::SQLite
    Original error: X::DBDish::DBError.new(driver-name => "DBDish::SQLite", native-message => "near \"my\": syntax error", code => 1, why => "Error")

Original error:
DBDish::SQLite: Error: near "my": syntax error (1)
  in method handle-error at /Users/fernando/.rakudobrew/moar-master/install/share/perl6/site/sources/9FB62DC76EFA166DFBA147ED75C743F9BE8BA042 (DBDish::SQLite::Connection) line 17
  in method prepare at /Users/fernando/.rakudobrew/moar-master/install/share/perl6/site/sources/9FB62DC76EFA166DFBA147ED75C743F9BE8BA042 (DBDish::SQLite::Connection) line 26
  in method prepare at /Users/fernando/Red/lib/Red/Driver/SQLite.pm6 (Red::Driver::SQLite) line 47
  in code  at /Users/fernando/Red/lib/Red/Driver.pm6 (Red::Driver) line 73
  in code  at /Users/fernando/Red/lib/Red/Driver.pm6 (Red::Driver) line 72
  in method prepare at /Users/fernando/Red/lib/Red/Driver.pm6 (Red::Driver) line 69
  in submethod TWEAK at /Users/fernando/Red/lib/Red/ResultSeq/Iterator.pm6 (Red::ResultSeq::Iterator) line 14
  in method iterator at /Users/fernando/Red/lib/Red/ResultSeq.pm6 (Red::ResultSeq) line 83
  in block <unit> at -e line 8

Actually thrown at:
  in block  at /Users/fernando/Red/lib/Red/Driver/SQLite.pm6 (Red::Driver::SQLite) line 43
  in any  at /Users/fernando/Red/lib/Red/Driver/SQLite.pm6 (Red::Driver::SQLite) line 41
  in method prepare at /Users/fernando/.rakudobrew/moar-master/install/share/perl6/site/sources/9FB62DC76EFA166DFBA147ED75C743F9BE8BA042 (DBDish::SQLite::Connection) line 39
  in method prepare at /Users/fernando/Red/lib/Red/Driver/SQLite.pm6 (Red::Driver::SQLite) line 47
  in code  at /Users/fernando/Red/lib/Red/Driver.pm6 (Red::Driver) line 73
  in code  at /Users/fernando/Red/lib/Red/Driver.pm6 (Red::Driver) line 72
  in method prepare at /Users/fernando/Red/lib/Red/Driver.pm6 (Red::Driver) line 69
  in submethod TWEAK at /Users/fernando/Red/lib/Red/ResultSeq/Iterator.pm6 (Red::ResultSeq::Iterator) line 14
  in method iterator at /Users/fernando/Red/lib/Red/ResultSeq.pm6 (Red::ResultSeq) line 83