Acme::Text::Glitchというモジュールを書きました

perl acme

最近ちょっとかなり忙しくしていたのですが、ちょっと落ち着いてきたので気分転換にAcmeりました。

ソースはgithub。

GitHub - Shinpeim/p5-Acme-Text-Glitch: Glitch your text

NAME
    Acme̳::͏Teͪxt::͌G̨l̼i̸t͑ch̆ -ͣ ̈́Ǵlit̒ch yo̶ur ́t͓e̾x͇t͂ like ̹t͗hiͨs̐.

SYNOPSIS
     use Acme::Text::Glitch;
     use Encode;

     my $tg = Acme::Text::Glitch->new;
     my $glitched_string = $tg->glitch('glitch me');
     pritn encode('utf8',$glitched_string);

DESCRIPTION
    Ȁcme̐::͔Të́xtͬ::Gl̏ĩțc̻h ̇creạte g͎l̀itch̊e͍ḑ̣t̫ext̿ ̀l̨ike͎ thi̕s.

METHODS
  new
     Acme::Text::Glitch->new(glitch_level => 4);

    you can pass glitch_level to constructor. default is 10.

  glitch_level
     $tg->glitch_level(8);
     $tg->glitch_level; # 8

    accessor to glitch_level.

  glitch
     my $glitched_string = $tg->glitch($string);

  unglitch
     my $unglitched_string = $tg->unglitch($glitched_string);

AUTHOR
    Shinpei Maruyama <shinpeim@gmail.com>

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

こんな感じで、 Acme::Text::Glitch->new->glitch("string"); すると glitchされたtextが帰ります。ワンライナーで実行してみたログを貼付けるとこんな感じ。

CPANにはあがっていないので、インストールはcpanmコマンドでGitHubからどうぞ

$ cpanm https://github.com/Shinpeim/p5-Acme-Text-Glitch/tarball/master

いまさらglitch textかよっていうアレもありますが、グリッチってやっぱりかっこいいですね。Enjoy!!