Select Code to Download

#!perl

use strict;
...

my $schema = $sqlt->schema;
print Dumper([ map { $_->name } $schema->get_table('s')->get_constrain
+ts ]);

$VAR1 = [
          'fkey'
        ];