view release on metacpan or  search on metacpan

lib/Acme/LAUTER/DEUTSCHER.pm  view on Meta::CPAN

package Acme::LAUTER::DEUTSCHER;
use strict;
use warnings;

our $VERSION = '1.02';

use Carp;

use PerlIO::via::LAUTER_DEUTSCHER;

binmode STDOUT, ':via(LAUTER_DEUTSCHER)'
    or croak 'KONNTE NICHT BINMODE VON STDOUT EINSTELLEN!';

1;

__END__

=head1 NAME

Acme::LAUTER::DEUTSCHER - make your program's output indistinguishable from someone yelling German

lib/PerlIO/via/LAUTER_DEUTSCHER.pm  view on Meta::CPAN

__END__

=head1 NAME

PerlIO::via::LAUTER_DEUTSCHER - a Perl IO layer to make output indistinguishable from someone yelling German

=head1 SYNOPSIS

    use PerlIO::via::LAUTER_DEUTSCHER;
    binmode STDOUT, ':via(LAUTER_DEUTSCHER)'
    print "Timmy pet the cute puppy.\n";

Running the above produces the following output:

    DIETER HAUSTIER DER NETTE WELPE!

=head1 DESCRIPTION

This module provides a Perl IO layer that translates output into German using
L<Lingua::Translate>. In addition to translation, the output is converted to upper