#!/usr/bin/env perl

use strict;
use warnings;

use App::Unicode::Block;

our $VERSION = 0.02;

# Run.
App::Unicode::Block->new->run;

# Print version.
sub VERSION_MESSAGE {
	print $VERSION."\n";
	exit 0;
}

__END__

=pod

=encoding utf8

=head1 NAME

unicode-block - Script to print Unicode blocks.

=head1 SYNOPSIS

 unicode-block [-h] [-l] [--version] [unicode_block]

=head1 ARGUMENTS

=over 8

=item * C<-h>

 Print help.

=item * C<-l>

 Print list of Unicode blocks.

=item * C<--version>

 Print version of script.

=item * C<unicode_block>

 Name of Unicode block to print.
 If this name present, only print block and exit.

=back

=head1 EXAMPLE1

 unicode-block -h

=head1 EXAMPLE2

 unicode-block -l

=head1 EXAMPLE3

 unicode-block Thai

=head1 REPOSITORY

L<https://github.com/michal-josef-spacek/App-Unicode-Block>

=head1 AUTHOR

Michal Josef Špaček L<mailto:skim@cpan.org>

L<http://skim.cz>

=head1 LICENSE AND COPYRIGHT

 © 2013-2020 Michal Josef Špaček
 BSD 2-Clause License

=head1 VERSION

0.02

=cut
