MetamodelX::Red::Refreshable 100%

use Red::Model;
unit role MetamodelX::Red::Refreshable;

multi method refresh(Red::Model:D \model) {
	nextwith model, |model.^columns>>.column>>.attr-name
}

multi method refresh(Red::Model:D \model, +@attrs) {
	my %ans;
	%ans{ @attrs } = |model.^rs.map(-> $model { |@attrs.map: -> $attr { $model."$attr"() } }).head;
	for %ans.kv -> $attr, $value {
		model.^set-attr: $attr, $value
	}
	model.^clean-up-columns: @attrs;
	model
}