Command-line wrapper for SQL::Translator::Shell.

diff --git a/bin/sqltsh b/bin/sqltsh
new file mode 100644 (file)
index 0000000..158af38
--- /dev/null
+++ b/bin/sqltsh
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+
+use Getopt::Long;
+use SQL::Translator::Shell;
+
+my %options = (HISTFILE => glob("~/.sqltsh_history"));
+GetOptions('H=s' => \$options{HISTFILE});
+
+my $sqltsh = SQL::Translator::Shell->new(%options);
+
+$sqltsh->run();