—
—

              
#! /usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell
HideShow 16 lines of Pod
=pod
=head1 NAME
dbMan -- interactive command line SQL shell/console.
=head1 SYNOPSIS
        dbman
=head1 DESCRIPTION
This software provides some functionality in database managing (SQL shell/console). 
=cut
use strict;
use lib '.';    # where I can find dbMan
use locale;
use open qw/:locale :std/;
use FindBin;
BEGIN {
        # some other paths
        unshift @INC,"$FindBin::Bin/../lib";
        unshift @INC,"$FindBin::Bin/lib";
        unshift @INC,"$FindBin::Bin";
}
use DBIx::dbMan;        # main module
$0 = 'dbman';           # process list name
# main program
# REAPER - if my children fall into zombie status, I kill him
sub REAPER { wait; $SIG{CHLD} = \&REAPER; }  $SIG{CHLD} = \&REAPER;
# main object, command line arguments + interface what I want
my $dbman = new DBIx::dbMan (-argv => \@ARGV, -interface => 'cmdline');
# dbMan starting
$dbman->start;
1;
HideShow 32 lines of Pod
=head1 VERSION
  
0.47
  
=head1 LICENSE
(c) Copyright 1999-2023 by Milan Sorm <sorm@is4u.cz>
All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=head1 AUTHOR
  
Milan Sorm, sorm@is4u.cz,
IS4U, s.r.o., Brno, Czech Republic.
=head1 REPORTING BUGS
Report bugs directly to sorm@is4u.cz.
  
=head1 LAST MODIFIED
  
Thu Feb  9 10:59:59 PM CET 2023
=head1 SEE ALSO
  
DBI(3), dbish(1)
=cut