/usr/bin/format-sql is in libsql-abstract-perl 1.77-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #!/usr/bin/env perl
use SQL::Abstract::Tree;
use Getopt::Long::Descriptive;
my ($opt, $usage) = describe_options(
'format-sql %o',
[ 'profile|p=s', "the profile to use", { default => 'console' } ],
[ 'help', "print usage message and exit" ],
);
print($usage->text), exit if $opt->help;
my $sqlat = SQL::Abstract::Tree->new({ profile => $opt->profile, fill_in_placeholders => 0 });
print $sqlat->format($_) . "\n" while <>;
|