Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 116 lines (107 sloc) 3.869 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115
package GH;

use base 'Exporter';

our @EXPORT = qw(
username_translate
github_usernames
);

sub _same {
    return map { ($_ => $_) } @_;
}

my %username_translate = (
    _same( qw(
arnsholt
bacek
brianwisti
bubaflub
cconstantine
chromatic
coke
colomon
cotto
dafrito
darbelo
diakopter
donpdonp
doughera
Eclesia
flh
flussence
fperrad
gerd
hanekomu
Infinoid
japhb
jessevdam
jkeenan
jrtayloriv
jsut
kjs
kthakore
kurahaupo
lateau
ligne
masak
mberends
mikehh
mj41
moritz
nwellnhof
ocharles
particle
petdance
plobsing
pmichaud
pstumpf
reezer
rurban
schwern
ShaneC
shockwave
sorear
tadzik
tene
tewk
theory
ujwal
Util
wagle
wayland
) ),
    allison => 'allisonrandal',
    "Andy Dougherty <doughera\@\xE2\x80\xA6>" => 'doughera',
    ash => 'ashgti',
    Austin => 'aghast',
    Austin_Hastings => 'aghast',
    'avarab' => 'avar',
    barney => 'bschmalhofer',
    benabik => 'Benabik',
    bluescreen => 'bluescreen10',
    "Daehyub Kim <lateau\@\xE2\x80\xA6>" => 'lateau',
    dukeleto => 'leto',
    fbrito => 'fernandobrito',
    Felipe => 'felipensp',
    'francois.perrad' => 'fperrad',
    "jhoblitt\@\xE2\x80\xA6" => 'jhoblitt',
    jimmy => 'zhuomingliang',
    JoelSherrill => 'joelsherrill',
    jonathan => 'jnthn',
    'julian.notfound' => 'notfound',
    lucian => 'lucian1900',
    "Matthew Wilson <diakopter\@\xE2\x80\xA6>" => 'diakopter',
    NotFound => 'notfound',
    "Paul C. Anagnostopoulos" => 'Paul-C-Anagnostopoulos',
    ronaldws => 'ronaldxs',
    soh_cah_toa => 'soh-cah-toa',
    tcurtis => 'ekiru',
    whiteknight => 'Whiteknight',
    "\xC3\x86var Arnfj\xC3\xB6r\xC3\xB0 Bjarmason <avarab\@\xE2\x80\xA6>" => 'avar',
    "Yuki`N" => 'nol888',
);

sub github_usernames {
    return values %username_translate;
}

sub username_translate {
    my $user = shift;

    return $username_translate{ $user };
}

1;
Something went wrong with that request. Please try again.