#!perl

use strict;
use warnings;
use 5.010;

use SQL::Translator;
use Data::Dumper;
use SQL::Translator::Parser::SQLite;

my $data = do { local $/;
                open my $fh, '<', 'data.sql' or die "Can't read file: $!\n";
                <$fh> };

my $sqlt = SQL::Translator->new;
SQL::Translator::Parser::SQLite::parse($sqlt, $data);

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