—#!/usr/bin/env perl
use
5.008;
use
strict;
use
warnings;
# PODNAME: ud
# ABSTRACT: print your text Upside Down
our
$VERSION
=
'1.22'
;
# VERSION
use
open
qw(:std :encoding(UTF-8)
);
use
utf8;
my
%opts
= ();
GetOptions(\
%opts
,
'help'
,
'version'
,
) or pod2usage(
-verbose
=> 2,
-output
=>
*STDERR
);
pod2usage(
-verbose
=> 2)
if
$opts
{help};
if
(
$opts
{version}) {
__PACKAGE__->VERSION ? __PACKAGE__->VERSION :
'dev'
;
exit
;
}
if
(
@ARGV
) {
upside_down(
"@ARGV\n"
),
"\n"
;
}
else
{
my
$text
=
''
;
while
(<STDIN>) {
$text
.=
$_
;
}
upside_down(
$text
),
"\n"
;
}
__END__
=pod
=encoding utf-8
=head1 NAME
ud - print your text Upside Down
=head1 VERSION
version 1.22
=head1 SYNOPSIS
$ ud hello
oʃʃǝɥ
$ ud
hello
world
pʃɹoʍ
oʃʃǝɥ
=head1 DESCRIPTION
If you provide text as command line arguments, they'll be printed
back to you, upside down.
If you don't, input is expected on STDIN, and will be turned
upside down when EOF is reached.
=head2 Options
=over 4
=item B<--help>
Print this manpage and exit.
=item B<--version>
Print the version number.
=back
=encoding utf-8
=for test_synopsis 1;
__END__
=head1 AVAILABILITY
The project homepage is L<http://metacpan.org/release/Text-UpsideDown/>.
The latest version of this module is available from the Comprehensive Perl
Archive Network (CPAN). Visit L<http://www.perl.com/CPAN/> to find a CPAN
site near you, or see L<https://metacpan.org/module/Text::UpsideDown/>.
=head1 SOURCE
The development version is on github at L<http://github.com/doherty/Text-UpsideDown>
and may be cloned from L<git://github.com/doherty/Text-UpsideDown.git>
=head1 BUGS AND LIMITATIONS
You can make new bug reports, and view existing ones, through the
web interface at L<https://github.com/doherty/Text-UpsideDown/issues>.
=head1 AUTHORS
=over 4
=item *
Mike Doherty <doherty@cpan.org>
=item *
Marcel Grünauer <marcel@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2007 by Marcel Grünauer and Mike Doherty.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut