X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FDBIx%2FClass.pm;h=b638fd01fb911c77865ee9f07c9444e225f58e77;hb=75d079145a507a0e5ff89b2676d383f4fd1a5511;hp=92a620432c7cf9779850613c1f34dfe56877ba4b;hpb=884559b13fe244d3e446d127e9fd21ea8d7c6eb3;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm index 92a6204..b638fd0 100644 --- a/lib/SQL/Translator/Parser/DBIx/Class.pm +++ b/lib/SQL/Translator/Parser/DBIx/Class.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE SQL::Translator::Parser::DBIx::Class; # AUTHOR: Jess Robinson @@ -94,9 +94,9 @@ sub parse { my ($refkey) = $cond =~ /^\w+\.(\w+)$/; my ($key) = $rel_info->{cond}->{$cond} =~ /^\w+\.(\w+)$/; if($rel_table && $refkey) - { + { $table->add_constraint( - type => 'foreign_key', + type => 'foreign_key', name => "fk_${key}", fields => $key, reference_fields => $refkey, @@ -106,6 +106,6 @@ sub parse { } } -} +} 1;