#!/usr/bin/env perl
use strict;
our $VERSION = 0.09;
# Run.
exit App::Translit::String->new->run;
# Print version.
sub VERSION_MESSAGE {
print $VERSION."\n";
exit 0;
}
__END__
=pod
=encoding utf8
=head1 NAME
translit-string - Script to transliterate string.
=head1 SYNOPSIS
translit-string [-h] [-r] [-t table] [--version] string
=head1 DESCRIPTION
translit-string script uses Lingua::Translit class to transliterate strings.
=head1 ARGUMENTS
=over 8
=item * C<-h>
Print help.
=item * C<-r>
Reverse transliteration.
=item * C<-t table>
Transliteration table.
For list of transliteration tables see L<Lingua::Translit>.
=item * C<--version>
Print version of script.
=item * C<string>
String to transliterate.
=back
=head1 EXAMPLE1
translit-string
# Output:
# Usage: translit-string [-h] [-r] [-t table] [--version]
# string
#
# -h Print help.
# -r Reverse transliteration.
# -t table Transliteration table (default value is 'ISO 9').
# --version Print version.
=head1 EXAMPLE2
translit-string 'Российская Федерация'
# Output:
# Rossijskaâ Federaciâ
=head1 EXAMPLE3
translit-string -r 'Rossijskaâ Federaciâ'
# Output:
# Российская Федерация
=head1 EXAMPLE4
translit-string -t 'ISO 843' Ελλάδα
# Output:
# Elláda
=head1 DEPENDENCIES
L<App::Translit::String>.
=head1 SEE ALSO
=over
=item L<translit>
transliterate text between various writing systems
=item L<Lingua::Translit>
transliterates text between writing systems
=back
=head1 REPOSITORY
=head1 AUTHOR
Michal Josef Špaček L<mailto:skim@cpan.org>
=head1 LICENSE AND COPYRIGHT
© 2015-2021 Michal Josef Špaček
BSD 2-Clause License
=head1 VERSION
0.09
=cut