Select Code to Download

use MSSQL::TableReferences;

...
                     } 
                   ]
    };

    # get the first relationship
    my $firstrel = shift @{$refs->{related}};
...
        ON tt.person_id = ot.person_id
       AND tt.week_id = ot.week_id

    my_table        => mt
    my_other_table  => mot
    fred            => f
    dbo.fred        => f   # note that table prefixes are ignored

    my_table        => mt
    mother_table    => mt1

package MSSQL::TableReferences;
use strict;
...

1;
__END__