#!perl
use strict;
use warnings;
use 5.008001;
use utf8;

use Acme::Tategaki;
use Encode::Locale;

binmode STDOUT => ':encoding(console_out)';
Encode::Locale::decode_argv;

unless (scalar @ARGV) {
    print "Usage: \$ tategaki_one_line お前は、すでに、死んでいる。\n";
    exit 1;
}

print scalar tategaki_one_line(@ARGV);
print "\n";

__END__

=encoding utf-8

=head1 NAME

tategaki - This command makes a text vertically.

=head1 SYNOPSIS

    $ tategaki_one_line お前は、すでに、死んでいる。
    お
    前
    は
    ︑
    す
    で
    に
    ︑
    死
    ん
    で
    い
    る
    ︒

=head1 AUTHOR

Kazuhiro Homma E<lt>kazuph@cpan.orgE<gt>

=head1 DEPENDENCIES

L<Array::Transpose>, L<Array::Transpose::Ragged>

=head1 SEE ALSO

L<Acme::Tategaki>, L<flippy|https://rubygems.org/gems/flippy>

=head1 LICENSE

Copyright (C) Kazuhiro Homma.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
