view release on metacpan or  search on metacpan

bin/db-browser  view on Meta::CPAN

#!/usr/bin/env perl
use warnings;
use strict;
use 5.016;
our $VERSION = '2.442';

use Term::Choose::Screen qw( hide_cursor show_cursor clear_to_end_of_screen );

use App::DBBrowser;

use Encode::Locale;

binmode STDIN,  ':encoding(console_in)';
binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

BEGIN {
    print hide_cursor();
    $ENV{TC_RESET_AUTO_UP} = 0;
    if ( $^O eq 'MSWin32' ) {
        require Win32::Console::ANSI;
        print "\e(U";
    }
}

END {
    delete $ENV{TC_RESET_AUTO_UP};
    print clear_to_end_of_screen();
    print show_cursor();
}


my $db_browser = App::DBBrowser->new();
$db_browser->run();


__END__

=pod

=encoding UTF-8

=head1 NAME

C<db-browser> - Browse SQL databases and their tables interactively.

=head1 VERSION

Version 2.442

=head1 BACKWARD INCOMPATIBLE CHANGES

=over

=item

Table names and column names are now unquoted by default (see L</Identifiers>).

=item

Saved subqueries are saved now at plugin level instead at driver level.

=item

How plugin and database configuration data is saved has changed.

=back

=head1 SYNOPSIS

    db-browser -h|--help

    db-browser

    db-browser database, ...