Red::Formatter 87.5%

use Red::Utils;
unit role Red::Formatter;

method table-formatter($data)  {
    do if self.?experimental-formatter && &*RED-TABLE-FORMATTER.defined {
	CATCH {
		return &*RED-TABLE-FORMATTER.($data)
	}
	&*RED-TABLE-FORMATTER.($data, $*RED-DB)
    } elsif try $*RED-DB.^can("table-name-formatter") {
        $*RED-DB.table-name-formatter: $data
    } else {
        camel-to-snake-case $data
    }
}
method column-formatter($data) {
    do if self.?experimental-formatter {
        &*RED-COLUMN-FORMATTER andthen .($data) orelse kebab-to-snake-case $data
    } else {
        kebab-to-snake-case $data
    }
}