[dbsrgits/SQL-Translator.git] / bin / sqltsh

#!/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();
Commit	Line	Data
e036224a	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();