Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

DOHERTY / Text-UpsideDown-1.22 / bin / ud 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
—
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130

              
#!/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 Text::UpsideDown qw(upside_down);
use Getopt::Long qw(GetOptions);
use Pod::Usage qw(pod2usage);
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}) {
    print __PACKAGE__->VERSION ? __PACKAGE__->VERSION : 'dev';
    exit;
}
if (@ARGV) {
    print upside_down("@ARGV\n"), "\n";
}
else {
    my $text = '';
    while (<STDIN>) {
        $text .= $_;
    }
    print 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