[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 filter {
	my ($name, $code) = @_;
	no strict 'refs';
	*{$name} = sub (;$){
		local *__ANON__ = $name;
		if ($_[0]) {
			local $_ = $_[0];
			$code->();
			$_
		} else {
			$code->();
			$_
		}
	}
}

filter aradia => sub {
	y/A-Z/a-z/;
	y/,.?//d;
	s/o/0/g;
};

filter tavros => sub {
	y/a-zA-Z.!?/A-Za-z,,,/;
	s/:\)/}:)/g;
};

filter sollux => sub {
	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;
};

filter karkat => sub {
	y/a-z/A-Z/;
	s/\bD:/D:B/;
};

filter nepeta => sub {
	y/A-Z/a-z/;
	s/ee/33/;
	$_ = ":33 < $_";
};

filter kanaya => sub {
	y/,.!?'//d;
	s/\b(\w)/\u$1/g;
};

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

filter vriska => sub {
	y/Bb/88/;
	s/:\)/::::\)/g;
	s/D:/D::::/g;
};

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

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

filter eridan => sub {
	y/',.?!//d;
	s/w/ww/g;
	s/v/vv/g;
	s/ing/in/g;
	s/want to/wanna/g;
	s/going to/gonna/g;
};

filter feferi => sub {
	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	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,,,/;
6b060d8e MG	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/;
6b060d8e MG	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;
6b060d8e MG	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>
6b060d8e MG	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