FabForce::DBDesigner4::SQL::Utils - some utility functions for SQL generation

  use FabForce::DBDesigner4::SQL::Utils qw(get_foreing_keys);

  The Artistic License 2.0

package FabForce::DBDesigner4::SQL::Utils;

use strict;
use warnings;

use base 'Exporter';

our @EXPORT_OK = qw( get_foreign_keys );

our $VERSION     = '0.01';

sub get_foreign_keys{
    my @rels = @_;
    
    my %relations;
    my @foreignKeys;
    
    for my $rel(@rels){
        next unless $rel;
        my $start           = (split(/\./,$rel->[1]))[1];
        my ($table,$target) =  split(/\./,$rel->[2]);
        push(@{$relations{$table}},[$start,$target]);
    }

    for my $key(keys(%relations)){
        my $string  = 'FOREIGN KEY ('.join(',',map{$_->[0]}@{$relations{$key}}).')';
           $string .= " REFERENCES $key(".join(',',map{$_->[1]}@{$relations{$key}}).')';
        push(@foreignKeys,$string)
    }

    return @foreignKeys;
}# getForeignKeys

1;

__END__