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 MG |
9 | |
10 | ||
6b060d8e MG |
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 | } | |
4d0a1f46 MG |
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 | ||
6b060d8e MG |
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 | |
4d0a1f46 MG |
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 |