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