NAME

Text::Schmutz - You̇r screen is quiṭe dirty, please cleȧn it.

VERSION

version v0.1.1

SYNOPSIS

    use Text::Schmutz;

    my $s = Text::Schmutz->new( prob => 0.1, use_small => 1 );

    say $s->mangle($text);

DESCRIPTION

"Th̔ough̜t̒s of ḍirt spill ̵ȯve̜r to ̜yo͘ur ̜u̒nico͘de̜ ͘enabled t̵ext"

This is a Perl adaptation of schmutz.go by Clemens Fries <github-schmutz@xenoworld.de>.

ATTRIBUTES

prob

This is the probability that a character will be dirty, between 0 and 1. It defaults to 0.1.

use_small

"spray dust on your text".

If "use_large" and "strike_out" are not enabled, then this is enabled by default.

For example:

    Ḷorem i̇ps̒um ̒doḷor sit amet, conse̒ctėṭur adipiscing eḷit̒, ̒se̒d ̒ḋo
    eiusṃo̒d ̣tempor incịḍiḋunt ut lạbore ̣e̒t dolo̒re ̣ma̒gna̒ ̣aliq̒uȧ.

use_large

"a cookie got mangled in your typewriter"

For example, with "prob" set to 0.5:

    L̔ore̔m ͓ipsum͘ dol͓or͓ sit am͓e͘t̔, ͓cons͓ectet̔ur ͘a̔d̵i̜pisc̔in̜g el̵i͓t͓,͓ s̵e͘d͘ do̔
    ei͘usm͓od̜ ͓temp̜or ͓i̵n̔c͓idid̵u̜nt ut ̔la̔bo̜r̵e ̵et̵ ̵dolore̜ ma̵gn͓a͓ ͘al̵i̔qua͓.̵

strike_out

"this is unacceptable"

For example, with "prob" set to 1.0:

    L⃫o⃓r⃫e̷m⃓ ⃒i⃥p⃓s̶u⃓m⃥ ⃫d⃒o⃥l⃒o̵r⃦ ̶s̶i⃫t̸ ̶a⃥m̶e⃒t̶,⃥ ̵c⃫o⃥n⃓s̷e⃓c̵t⃒e⃓t̶u̶r⃫ ⃥a⃒d⃥i̶p̵i̵s̷c̸i⃓n⃒g⃒ ̵e̸l⃦i⃓t⃒,̵ ⃥s̵e⃥d̸ ̵d̶o̶
    ̷e̵i⃥u̵s⃓m⃓o⃫d̶ ̸t̶e⃒m̸p⃓o⃦r⃒ ⃒i̷n⃥c⃫i⃓d⃥i̵d̷u̷n̶t̸ ̵u̷t⃥ ̶l̷a⃦b⃥o̵r⃓e⃒ ⃒e̵t̸ ̸d⃦o̸l̵o̵r⃓e̶ ⃒m̷a̷g̷n̵a̵ ̵a⃦l̷i̷q⃥u̸a̶.⃒

METHODS

mangle

   $dirty = $s->mangle( $text, $prob );

SOURCE

The development version is on github at https://github.com/robrwo/perl-Text-Schmutz and may be cloned from git://github.com/robrwo/perl-Text-Schmutz.git

BUGS

Please report any bugs or feature requests on the bugtracker website https://github.com/robrwo/perl-Text-Schmutz/issues

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

AUTHOR

Robert Rothenberg <rrwo@cpan.org>

The original schmutz was written by Clemens Fries <github-schmutz@xenoworld.de>.

COPYRIGHT AND LICENSE

This software is Copyright (c) 2024 by Robert Rothenberg.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

cpanm Text::Schmutz

perl -MCPAN -e shell
install Text::Schmutz