my $match = ( $etc =~ /MATCH (\w+)/i ) ? "MATCH $1" : '';
my $on_delete = ( $etc =~ /ON DELETE ((NO |SET )?\w+)/i ) ? $1 : '';
my $on_update = ( $etc =~ /ON UPDATE ((NO |SET )?\w+)/i ) ? $1 : '';
- warn $etc if $etc;
+{ 'constraint' => $_->{conname},
'columns' => [ split(/,\s*/, $columns) ],
'table' => $table,