lib/Text/Homestuck.pm

   1 package Text::Homestuck;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use parent qw/Exporter/;
   7 our @EXPORT = qw/aradia tavros sollux karkat nepeta kanaya terezi vriska equius gamzee eridan feferi/;
   8 our $VERSION = '0.000_001';
   9
  10
  11 sub aradia (_) {
  12         local $_ = $_[0];
  13         y/A-Z/a-z/;
  14         y/,.?//d;
  15         s/o/0/g;
  16         $_
  17 }
  18
  19 sub tavros (_) {
  20         local $_ = $_[0];
  21         y/a-zA-Z.!?/A-Za-z,,,/;
  22         s/:\)/}:)/g;
  23         $_
  24 }
  25
  26 sub sollux (_) {
  27         local $_ = $_[0];
  28         y/A-Z/a-z/;
  29         y/s/2/;
  30         s/i/ii/g;
  31         s/to/two/g;
  32         s/\b(fuck|joke|kk|aa)\b/\U$1/g;
  33         $_
  34 }
  35
  36 sub karkat (_) {
  37         local $_ = $_[0];
  38         y/a-z/A-Z/;
  39         s/\bD:/D:B/;
  40         $_
  41 }
  42
  43 sub nepeta (_){
  44         local $_ = $_[0];
  45         y/A-Z/a-z/;
  46         s/ee/33/;
  47         $_ = ":33 < $_";
  48         $_
  49 }
  50
  51 sub kanaya (_) {
  52         local $_ = $_[0];
  53         y/,.!?'//d;
  54         s/\b(\w)/\u$1/g;
  55         $_
  56 }
  57
  58 sub terezi (_) {
  59         local $_ = $_[0];
  60         y/a-z/A-Z/;
  61         y/AIE/413/;
  62         s/(!|\?)/$1$1/g;
  63         s/:\]|:\)/>:]/g;
  64         $_
  65 }
  66
  67 sub vriska (_) {
  68         local $_ = $_[0];
  69         y/Bb/88/;
  70         s/:\)/::::\)/g;
  71         s/D:/D::::/g;
  72         $_
  73 }
  74
  75 sub equius (_){
  76         local $_ = $_[0];
  77         s/strong/STRONG/g;
  78         s/strength/STRONGNESS/g;
  79         s/x/%/ig;
  80         s/loo/100/ig;
  81         s/ool/001/ig;
  82         s/[?.!]$//;
  83         $_ = "D --> $_";
  84         $_
  85 }
  86
  87 sub gamzee (_){
  88         local $_ = $_[0];
  89         y/[A-Z]/[a-z]/;
  90         s/([a-z])(.)/$1\u$2/g;
  91         s/:\)/:o\)/g;
  92         $_
  93 }
  94
  95 sub eridan (_){
  96         local $_ = $_[0];
  97         y/',.?!//d;
  98         s/w/ww/g;
  99         s/v/vv/g;
 100         s/ing/in/g;
 101         s/want to/wanna/g;
 102         s/going to/gonna/g;
 103         $_
 104 }
 105
 106 sub feferi (_){
 107         local $_ = $_[0];
 108         s/H/)(/g;
 109         s/E/-E/g;
 110         s/:\)/38)/g;
 111         $_
 112 }
 113
 114 1;
 115 __END__
 116 # Below is stub documentation for your module. You'd better edit it!
 117
 118 =head1 NAME
 119
 120 Text::Homestuck - Perl extension for blah blah blah
 121
 122 =head1 SYNOPSIS
 123
 124   use Text::Homestuck;
 125   blah blah blah
 126
 127 =head1 DESCRIPTION
 128
 129 Stub documentation for Text::Homestuck, created by h2xs. It looks like the
 130 author of the extension was negligent enough to leave the stub
 131 unedited.
 132
 133 Blah blah blah.
 134
 135 =head2 EXPORT
 136
 137 None by default.
 138
 139
 140
 141 =head1 SEE ALSO
 142
 143 Homestuck: L<http://mspaintadventures.com/?s=6&p=001901>
 144 The mspa wiki page listing the quirks: http://mspaintadventures.wikia.com/wiki/Typing_Quirk
 145
 146 =head1 AUTHOR
 147
 148 Marius Gavrilescu, E<lt>marius@E<gt>
 149
 150 =head1 COPYRIGHT AND LICENSE
 151
 152 Copyright (C) 2014 by Marius Gavrilescu
 153
 154 This library is free software; you can redistribute it and/or modify
 155 it under the same terms as Perl itself, either Perl version 5.18.2 or,
 156 at your option, any later version of Perl 5 you may have available.
 157
 158
 159 =cut