Insert.pm6

use Red::AST;
use Red::AST::Value;
use Red::Column;
use Red::Model;
unit class Red::AST::Insert does Red::AST;

has Red::Model  $.into;
has             %.values;

method returns { Nil }

method args { |%!values.keys }

multi method new(Red::Model $model) {
    ::?CLASS.bless: :into($model.WHAT), :values($model.^columns.map(-> $column {
        $column.column.name => Red::AST::Value.new: :column($column.column), :value($column.get_value: $model)
    }).Hash)
}
method find-column-name {}