]>
iEval git - text-homestuck.git/blob - lib/Text/Homestuck.pm
ef508f7e4a94a793233f2dc4c58cfe52a0d2105f
1 package Text
:: Homestuck
;
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' ;
11 my ( $name , $code ) = @_ ;
14 local * __ANON__
= $name ;
26 filter aradia
=> sub {
32 filter tavros
=> sub {
33 y/a-zA-Z.!?/A-Za-z,,,/ ;
37 filter sollux
=> sub {
42 s/\b(fuck|joke|kk|aa)\b/\U$1/g ;
45 filter karkat
=> sub {
50 filter nepeta
=> sub {
56 filter kanaya
=> sub {
61 filter terezi
=> sub {
68 filter vriska
=> sub {
74 filter equius
=> sub {
76 s/strength/STRONGNESS/g ;
84 filter gamzee
=> sub {
86 s/([a-z])(.)/$1\u$2/g ;
90 filter eridan
=> sub {
99 filter feferi
=> sub {
110 Text::Homestuck - Emulate the typing quirks of Homestuck trolls
115 say feferi 'HELLO WORLD!'; # )(-ELLO WORLD!
116 my @array = ('Move along.', 'Nothing to see here');
118 say "@array"; # m0ve al0ng n0thing t0 see here
122 Text::Homestuck exports several subroutines, one for each typing quirk. There are 12 such functions right now, one for each pre-scratch troll: aradia, tavros, sollux, karkat, nepeta, kanaya, terezi, vriska, equius, gamzee, eridan, feferi.
124 Each subroutine takes one or no arguments. If called with an argument, they apply the quirk to the argument and return the result. If called with no arguments, they apply the quirk to C<$_>, modifiying it in-place, and returning C<$_>.
128 Homestuck: L<http://mspaintadventures.com/?s=6&p=001901>
130 A table of typing quirks: L<http://mspaintadventures.wikia.com/wiki/Typing_Quirk>
134 Marius Gavrilescu C<< <marius@ieval.ro> >>
136 =head1 COPYRIGHT AND LICENSE
138 Copyright (C) 2014 by Marius Gavrilescu
140 This library is free software; you can redistribute it and/or modify
141 it under the same terms as Perl itself, either Perl version 5.18.2 or,
142 at your option, any later version of Perl 5 you may have available.
This page took 0.083871 seconds and 5 git commands to generate.