[text-homestuck.git] / lib / Text / Homestuck.pm

package Text::Homestuck;

use 5.014000;
use strict;
use warnings;
use parent qw/Exporter/;
our @EXPORT = qw/aradia tavros sollux karkat nepeta kanaya terezi vriska equius gamzee eridan feferi/;
our $VERSION = '0.000_001';


sub aradia (_) {
	local $_ = $_[0];
	y/A-Z/a-z/;
	y/,.?//d;
	s/o/0/g;
	$_
}

sub tavros (_) {
	local $_ = $_[0];
	y/a-zA-Z.!?/A-Za-z,,,/;
	s/:\)/}:)/g;
	$_
}

sub sollux (_) {
	local $_ = $_[0];
	y/A-Z/a-z/;
	y/s/2/;
	s/i/ii/g;
	s/to/two/g;
	s/\b(fuck|joke|kk|aa)\b/\U$1/g;
	$_
}

sub karkat (_) {
	local $_ = $_[0];
	y/a-z/A-Z/;
	s/\bD:/D:B/;
	$_
}

sub nepeta (_){
	local $_ = $_[0];
	y/A-Z/a-z/;
	s/ee/33/;
	$_ = ":33 < $_";
	$_
}

sub kanaya (_) {
	local $_ = $_[0];
	y/,.!?'//d;
	s/\b(\w)/\u$1/g;
	$_
}

sub terezi (_) {
	local $_ = $_[0];
	y/a-z/A-Z/;
	y/AIE/413/;
	s/(!|\?)/$1$1/g;
	s/:\]|:\)/>:]/g;
	$_
}

sub vriska (_) {
	local $_ = $_[0];
	y/Bb/88/;
	s/:\)/::::\)/g;
	s/D:/D::::/g;
	$_
}

sub equius (_){
	local $_ = $_[0];
	s/strong/STRONG/g;
	s/strength/STRONGNESS/g;
	s/x/%/ig;
	s/loo/100/ig;
	s/ool/001/ig;
	s/[?.!]$//;
	$_ = "D --> $_";
	$_
}

sub gamzee (_){
	local $_ = $_[0];
	y/[A-Z]/[a-z]/;
	s/([a-z])(.)/$1\u$2/g;
	s/:\)/:o\)/g;
	$_
}

sub eridan (_){
	local $_ = $_[0];
	y/',.?!//d;
	s/w/ww/g;
	s/v/vv/g;
	s/ing/in/g;
	s/want to/wanna/g;
	s/going to/gonna/g;
	$_
}

sub feferi (_){
	local $_ = $_[0];
	s/H/)(/g;
	s/E/-E/g;
	s/:\)/38)/g;
	$_
}

1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

Text::Homestuck - Perl extension for blah blah blah

=head1 SYNOPSIS

  use Text::Homestuck;
  blah blah blah

=head1 DESCRIPTION

Stub documentation for Text::Homestuck, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.

Blah blah blah.

=head2 EXPORT

None by default.


=head1 SEE ALSO

Homestuck: L<http://mspaintadventures.com/?s=6&p=001901>
The mspa wiki page listing the quirks: http://mspaintadventures.wikia.com/wiki/Typing_Quirk

=head1 AUTHOR

Marius Gavrilescu, E<lt>marius@E<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014 by Marius Gavrilescu

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.18.2 or,
at your option, any later version of Perl 5 you may have available.


=cut
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/;
6b060d8e MG	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
4d0a1f46 MG	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>
6b060d8e MG	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