map { $gattr_from{$_->name} = 'Collation' } $cmeta->get_all_attributes;
foreach my $attr ( ( $tmeta->get_all_attributes, $cmeta->get_all_attributes ) ) {
next if $attr->name =~ /^_/;
-- next if $skipsave{$attr->name};
next unless $save_types{$attr->type_constraint->name};
$graph_attributes{$attr->name} = $save_types{$attr->type_constraint->name};
}
my $rmeta = Text::Tradition::Collation::Reading->meta;
foreach my $attr( $rmeta->get_all_attributes ) {
next if $attr->name =~ /^_/;
-- next if $skipsave{$attr->name};
next unless $save_types{$attr->type_constraint->name};
$reading_attributes{$attr->name} = $save_types{$attr->type_constraint->name};
}
my $pmeta = Text::Tradition::Collation::Relationship->meta;
foreach my $attr( $pmeta->get_all_attributes ) {
next if $attr->name =~ /^_/;
-- next if $skipsave{$attr->name};
next unless $save_types{$attr->type_constraint->name};
$edge_attributes{$attr->name} = $save_types{$attr->type_constraint->name};
}