App-DBBrowser

 view release on metacpan or  search on metacpan

bin/db-browser  view on Meta::CPAN

1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
=back
 
=head3 Mouse Mode
 
Set the I<Mouse mode> (see L<Term::Choose/mouse>).
 
=head3 DB2 Encoding
 
For C<DB2> databases only: set the application code set.
 
Data from a DB2 database is decoded using this encoding.
 
=head2 Help
 
Display this documentation.
 
=head2 Path
 
Displays the version and path of the running C<db-browser>, along with the application directory path.
 
=head1 CONFIGURATION FILES

bin/db-browser  view on Meta::CPAN

1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
To locate the configuration files, run C<db-browser -h> and select I<Path>. The data is saved in JSON format.
 
=head1 REQUIREMENTS
 
=head2 Perl Version
 
Requires Perl version 5.16.0 or later.
 
=head2 Decoded Strings
 
C<db-browser> expects decoded strings.
 
Non-mappable characters can disrupt the output.
 
=head2 Terminal
 
Requires a terminal with a monospaced font supporting the printed characters.
 
The terminal must comprehend ANSI escape sequences. For MSWin32, C<App::DBBrowser> utilizes L<Win32::Console::ANSI> to
emulate an ANSI console for the C<db-browser>.

lib/App/DBBrowser/GetContent/Source.pm  view on Meta::CPAN

230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
    $ax->write_json( $sf->{i}{f_dir_history}, $h_ref );
}
 
 
sub __new_search_dir {
    my ( $sf ) = @_;
    my $tu = Term::Choose::Util->new( $sf->{i}{tcu_default} );
    my $default_dir = $sf->{d}{default_search_dir} // $sf->{i}{home_dir};
    # Choose
    my $dir = $tu->choose_a_directory(
        { init_dir => $default_dir, decoded => 1, clear_screen => 1, confirm => '-OK-', back => '<<' }
    );
    if ( $dir ) {
        $sf->{d}{default_search_dir} = $dir;
    }
    return $dir;
}

lib/App/DBBrowser/Opt/Set.pm  view on Meta::CPAN

738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
    $sf->{write_config}++;
    return;
}
 
 
sub __choose_a_directory_wrap {
    my ( $sf, $section, $opt, $prompt ) = @_;
    my $tu = Term::Choose::Util->new( $sf->{i}{tcu_default} );
    #my $current = $sf->{o}{$section}{$opt};
    my $choice = $tu->choose_a_directory(
        { show_hidden => 1, prompt => $prompt, clear_screen => 1, decoded => 1,
          confirm => $sf->{i}{confirm}, back => $sf->{i}{back} } ##
    );
    return if ! defined $choice;
    $sf->{o}{$section}{$opt} = $choice;
    $sf->{write_config}++;
    return;
}
 
 
sub __group_readline {