projects
/
text-homestuck.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6b060d8
)
Improve code
author
Marius Gavrilescu
<marius@ieval.ro>
Mon, 31 Mar 2014 22:34:49 +0000
(
01:34
+0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Mon, 31 Mar 2014 22:44:26 +0000
(
01:44
+0300)
lib/Text/Homestuck.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Text/Homestuck.pm
b/lib/Text/Homestuck.pm
index 88354ed355876fc3960f7590efc9493df37c9d2f..ff123cacfbed58a5023e7df00ac1d858383a1263 100644
(file)
--- a/
lib/Text/Homestuck.pm
+++ b/
lib/Text/Homestuck.pm
@@
-7,73
+7,71
@@
use parent qw/Exporter/;
our @EXPORT = qw/aradia tavros sollux karkat nepeta kanaya terezi vriska equius gamzee eridan feferi/;
our $VERSION = '0.000_001';
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->();
+ $_
+ }
+ }
+}
-sub aradia (_) {
- local $_ = $_[0];
+filter aradia => sub {
y/A-Z/a-z/;
y/,.?//d;
s/o/0/g;
y/A-Z/a-z/;
y/,.?//d;
s/o/0/g;
- $_
-}
+};
-sub tavros (_) {
- local $_ = $_[0];
+filter tavros => sub {
y/a-zA-Z.!?/A-Za-z,,,/;
s/:\)/}:)/g;
y/a-zA-Z.!?/A-Za-z,,,/;
s/:\)/}:)/g;
- $_
-}
+};
-sub sollux (_) {
- local $_ = $_[0];
+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;
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];
+filter karkat => sub {
y/a-z/A-Z/;
s/\bD:/D:B/;
y/a-z/A-Z/;
s/\bD:/D:B/;
- $_
-}
+};
-sub nepeta (_){
- local $_ = $_[0];
+filter nepeta => sub {
y/A-Z/a-z/;
s/ee/33/;
$_ = ":33 < $_";
y/A-Z/a-z/;
s/ee/33/;
$_ = ":33 < $_";
- $_
-}
+};
-sub kanaya (_) {
- local $_ = $_[0];
+filter kanaya => sub {
y/,.!?'//d;
s/\b(\w)/\u$1/g;
y/,.!?'//d;
s/\b(\w)/\u$1/g;
- $_
-}
+};
-sub terezi (_) {
- local $_ = $_[0];
+filter terezi => sub {
y/a-z/A-Z/;
y/AIE/413/;
s/(!|\?)/$1$1/g;
s/:\]|:\)/>:]/g;
y/a-z/A-Z/;
y/AIE/413/;
s/(!|\?)/$1$1/g;
s/:\]|:\)/>:]/g;
- $_
-}
+};
-sub vriska (_) {
- local $_ = $_[0];
+filter vriska => sub {
y/Bb/88/;
s/:\)/::::\)/g;
s/D:/D::::/g;
y/Bb/88/;
s/:\)/::::\)/g;
s/D:/D::::/g;
- $_
-}
+};
-sub equius (_){
- local $_ = $_[0];
+filter equius => sub {
s/strong/STRONG/g;
s/strength/STRONGNESS/g;
s/x/%/ig;
s/strong/STRONG/g;
s/strength/STRONGNESS/g;
s/x/%/ig;
@@
-81,35
+79,28
@@
sub equius (_){
s/ool/001/ig;
s/[?.!]$//;
$_ = "D --> $_";
s/ool/001/ig;
s/[?.!]$//;
$_ = "D --> $_";
- $_
-}
+};
-sub gamzee (_){
- local $_ = $_[0];
+filter gamzee => sub {
y/[A-Z]/[a-z]/;
s/([a-z])(.)/$1\u$2/g;
s/:\)/:o\)/g;
y/[A-Z]/[a-z]/;
s/([a-z])(.)/$1\u$2/g;
s/:\)/:o\)/g;
- $_
-}
+};
-sub eridan (_){
- local $_ = $_[0];
+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;
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];
+filter feferi => sub {
s/H/)(/g;
s/E/-E/g;
s/:\)/38)/g;
s/H/)(/g;
s/E/-E/g;
s/:\)/38)/g;
- $_
-}
+};
1;
__END__
1;
__END__
This page took
0.012387 seconds
and
4
git commands to generate.