# Pastebin StJaMxpJ
$ perl6 -I../../../Red/lib -MRed -Ilib -MPerson -e '

my $*RED-DB = database "SQLite", :database<data/ctech.sqlite>;

.first.say for Person.^all

'
Hash % = {:first("Sally"), :id(1), :key("|abraham|sally|abraham\@example.com|sally\@example2.com|"), :last("Abraham"), :notes(Any)}
Hash %cols = {:first(Red::Column.new(attr => person.first, attr-name => "first", id => Bool::False, auto-increment => Bool::False, references => Callable, nullable => Bool::False, name => "first", name-alias => "first", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str)), :id(Red::Column.new(attr => person.id, attr-name => "id", id => Bool::True, auto-increment => Bool::True, references => Callable, nullable => Bool::False, name => "id", name-alias => "id", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str)), :key(Red::Column.new(attr => person.key, attr-name => "key", id => Bool::False, auto-increment => Bool::False, references => Callable, nullable => Bool::False, name => "key", name-alias => "key", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str)), :last(Red::Column.new(attr => person.last, attr-name => "last", id => Bool::False, auto-increment => Bool::False, references => Callable, nullable => Bool::False, name => "last", name-alias => "last", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str)), :notes(Red::Column.new(attr => person.notes, attr-name => "notes", id => Bool::False, auto-increment => Bool::False, references => Callable, nullable => Bool::True, name => "notes", name-alias => "notes", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str))}
Red::Column %cols = Red::Column.new(attr => person.first, attr-name => "first", id => Bool::False, auto-increment => Bool::False, references => Callable, nullable => Bool::False, name => "first", name-alias => "first", type => Str, inflate => { ... }, deflate => { ... }, computation => Any, model-name => Str, column-name => Str, require => Str)
(:(Red::Driver::SQLite: Num $value, Instant :$to!, *%_), :(Red::Driver::SQLite: Str $value, DateTime :$to!, *%_), :(Red::Driver::SQLite: Num $value, Duration :$to!, *%_), :(Red::Driver::SQLite: Int $value, Duration :$to!, *%_), :(Red::Driver::SQLite: $value, :$to, *%_))
Cannot resolve caller head(Person:U: ); none of these signatures match:
    (Any:D: *%_)
    (Any:D: Callable:D $w, *%_)
    (Any:D: $n, *%_)
  in code  at /Users/fernando/Projects/Red/lib/Red/ResultSeq/Iterator.pm6 (Red::ResultSeq::Iterator) line 41
  in method pull-one at /Users/fernando/Projects/Red/lib/Red/ResultSeq/Iterator.pm6 (Red::ResultSeq::Iterator) line 29
  in block <unit> at -e line 5