+ # patch foreign keys
+ my $foreign_key_definition = "SL::DB::AUTO::$package"->meta->perl_foreign_keys_definition(%args);
+ $foreign_key_definition =~ s/::AUTO::/::/g;
+
+ if ($foreign_key_definition && ($definition =~ /\Q$foreign_key_definition\E/)) {
+ my ($start, $end) = ($-[0], $+[0]);
+
+ while (my ($auto_generated_name, $desired_name) = each %{ $foreign_key_name_map{$table} || {} }) {
+ $foreign_key_definition =~ s/^ \s \s ${auto_generated_name} \b/ ${desired_name}/msx;
+ }
+
+ # Sort foreign key definitions alphabetically
+ if ($foreign_key_definition =~ m/\(\n(.+)\n\)/s) {
+ my ($list_start, $list_end) = ($-[0], $+[0]);
+ my @foreign_keys = split m/\n\n/m, $1;
+ my $sorted_foreign_keys = "(\n" . join("\n\n", sort @foreign_keys) . "\n)";
+
+ substr $foreign_key_definition, $list_start, $list_end - $list_start, $sorted_foreign_keys;;
+ }
+
+ substr($definition, $start, $end - $start) = $foreign_key_definition;
+ }
+
+ $definition =~ s/(meta->table.*)\n/$1\n$schema_str/m if $schema;
+