bin/sqltsh

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 use Getopt::Long;
   6 use SQL::Translator::Shell;
   7
   8 my %options = (HISTFILE => glob("~/.sqltsh_history"));
   9 GetOptions('H=s' => \$options{HISTFILE});
  10
  11 my $sqltsh = SQL::Translator::Shell->new(%options);
  12
  13 $sqltsh->run();