Commit | Line | Data |
---|---|---|
4d0a1f46 MG |
1 | package Text::Homestuck; |
2 | ||
3 | use 5.014000; | |
4 | use strict; | |
5 | use warnings; | |
6b060d8e MG |
6 | use parent qw/Exporter/; |
7 | our @EXPORT = qw/aradia tavros sollux karkat nepeta kanaya terezi vriska equius gamzee eridan feferi/; | |
4d0a1f46 | 8 | our $VERSION = '0.000_001'; |
4d0a1f46 | 9 | |
260a36fc MG |
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 | } | |
4d0a1f46 | 25 | |
260a36fc | 26 | filter aradia => sub { |
6b060d8e MG |
27 | y/A-Z/a-z/; |
28 | y/,.?//d; | |
29 | s/o/0/g; | |
260a36fc | 30 | }; |
6b060d8e | 31 | |
260a36fc | 32 | filter tavros => sub { |
6b060d8e MG |
33 | y/a-zA-Z.!?/A-Za-z,,,/; |
34 | s/:\)/}:)/g; | |
260a36fc | 35 | }; |
6b060d8e | 36 | |
260a36fc | 37 | filter sollux => sub { |
6b060d8e MG |
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; | |
260a36fc | 43 | }; |
6b060d8e | 44 | |
260a36fc | 45 | filter karkat => sub { |
6b060d8e MG |
46 | y/a-z/A-Z/; |
47 | s/\bD:/D:B/; | |
260a36fc | 48 | }; |
6b060d8e | 49 | |
260a36fc | 50 | filter nepeta => sub { |
6b060d8e MG |
51 | y/A-Z/a-z/; |
52 | s/ee/33/; | |
53 | $_ = ":33 < $_"; | |
260a36fc | 54 | }; |
6b060d8e | 55 | |
260a36fc | 56 | filter kanaya => sub { |
6b060d8e MG |
57 | y/,.!?'//d; |
58 | s/\b(\w)/\u$1/g; | |
260a36fc | 59 | }; |
6b060d8e | 60 | |
260a36fc | 61 | filter terezi => sub { |
6b060d8e MG |
62 | y/a-z/A-Z/; |
63 | y/AIE/413/; | |
64 | s/(!|\?)/$1$1/g; | |
65 | s/:\]|:\)/>:]/g; | |
260a36fc | 66 | }; |
6b060d8e | 67 | |
260a36fc | 68 | filter vriska => sub { |
6b060d8e MG |
69 | y/Bb/88/; |
70 | s/:\)/::::\)/g; | |
71 | s/D:/D::::/g; | |
260a36fc | 72 | }; |
6b060d8e | 73 | |
260a36fc | 74 | filter equius => sub { |
6b060d8e MG |
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 --> $_"; | |
260a36fc | 82 | }; |
6b060d8e | 83 | |
260a36fc | 84 | filter gamzee => sub { |
6b060d8e MG |
85 | y/[A-Z]/[a-z]/; |
86 | s/([a-z])(.)/$1\u$2/g; | |
87 | s/:\)/:o\)/g; | |
260a36fc | 88 | }; |
6b060d8e | 89 | |
260a36fc | 90 | filter eridan => sub { |
6b060d8e MG |
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; | |
260a36fc | 97 | }; |
6b060d8e | 98 | |
260a36fc | 99 | filter feferi => sub { |
6b060d8e MG |
100 | s/H/)(/g; |
101 | s/E/-E/g; | |
102 | s/:\)/38)/g; | |
260a36fc | 103 | }; |
4d0a1f46 MG |
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 | ||
6b060d8e MG |
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 | |
4d0a1f46 MG |
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 |