#!/usr/bin/env perl
#
# Name:
# create.tables.pl.
#
# Description:
# Create all tables in the 'contacts' database.
use feature 'say';
use strict;
use utf8;
use warnings;
use warnings qw(FATAL utf8); # Fatalize encoding glitches.
use open qw(:std :utf8); # Undeclared streams in UTF-8.
use charnames qw(:full :short); # Unneeded in v5.16.
use App::Office::Contacts::Util::Create;
use Getopt::Long;
use Pod::Usage;
# --------------------
my($option_parser) = Getopt::Long::Parser -> new;
my(%option);
if ($option_parser -> getoptions
(
\%option,
'help',
'verbose',
) )
{
pod2usage(1) if ($option{help});
exit App::Office::Contacts::Util::Create -> new(%option) -> create_all_tables;
}
else
{
pod2usage(2);
}
__END__
=pod
=head1 NAME
create.tables.pl - Create all tables in the 'contacts' database
=head1 SYNOPSIS
create.tables.pl [options]
Options:
-help
-verbose
All switches can be reduced to a single letter.
Exit value: 0.
=head1 OPTIONS
=over 4
=item -help
Print help and exit.
=item -verbose
Print progress messages.
If -v -v is used, print even more progress messages. In this case, the names
of all localities within states within countries (Australia, America) will be displayed.
=back
=head1 DESCRIPTION
create.tables.pl creates all tables in the 'contacts' database.
=cut