NAME
App::Translit::String - Perl class for translit-string application.
SYNOPSIS
use App::Translit::String;
my $obj = App::Translit::String->new;
my $exit_code = $obj->run;
METHODS
new
my $obj = App::Translit::String->new;
Constructor.
run
my $exit_code = $obj->run;
Run.
Returns 1 for error, 0 for success.
ERRORS
run():
Cannot transliterate string.
Error: %s
No reverse transliteration.
EXAMPLE1
use strict;
use warnings;
use App::Translit::String;
# Run.
exit App::Translit::String->new->run;
# Print version.
sub VERSION_MESSAGE {
print "9.99\n";
exit 0;
}
# Output:
# Usage: /tmp/vm3pgIQWej [-h] [-r] [-t table] [--version]
# string
#
# -h Print help.
# -r Reverse transliteration.
# -t table Transliteration table (default value is 'ISO 9').
# --version Print version.
EXAMPLE2
use strict;
use warnings;
use App::Translit::String;
# Run.
@ARGV = ('Российская Федерация');
exit App::Translit::String->new->run;
# Output:
# Rossijskaâ Federaciâ
EXAMPLE3
use strict;
use warnings;
use App::Translit::String;
# Run.
@ARGV = ('-r', 'Rossijskaâ Federaciâ');
exit App::Translit::String->new->run;
# Output:
# Российская Федерация
DEPENDENCIES
English, Error::Pure, Getopt::Std, Lingua::Translit.
REPOSITORY
https://github.com/michal-josef-spacek/App-Translit-String.
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© 2015-2021 Michal Josef Špaček
BSD 2-Clause License
VERSION
0.09