File Coverage

lib/WebService/Libris/Utils.pm

Criterion	Covered	Total	%
statement	4	4	100.0
branch			n/a
condition	1	3	33.3
subroutine	2	2	100.0
pod	0	1	0.0
total	7	10	70.0

package WebService::Libris::Utils;

use Exporter qw/import/;

our @EXPORT_OK = qw/marc_lang_code_to_iso/;

our %langcodes = (
    'som' => 'so',
    'ido' => 'io',
    'esp' => 'eo',
    'mal' => 'ml',
    'uzb' => 'uz',
    'ukr' => 'uk',
    'cha' => 'ch',
    'sao' => 'sm',
    'kon' => 'kg',
    'far' => 'fo',
    'ava' => 'av',
    'epo' => 'eo',
    'ven' => 've',
    'tel' => 'te',
    'rus' => 'ru',
    'cre' => 'cr',
    'ita' => 'it',
    'pol' => 'pl',
    'mac' => 'mk',
    'kor' => 'ko',
    'geo' => 'ka',
    'nya' => 'ny',
    'bur' => 'my',
    'tsw' => 'tn',
    'bam' => 'bm',
    'kin' => 'rw',
    'tur' => 'tr',
    'wol' => 'wo',
    'ewe' => 'ee',
    'est' => 'et',
    'sun' => 'su',
    'ndo' => 'ng',
    'swe' => 'sv',
    'nep' => 'ne',
    'chi' => 'zh',
    'gag' => 'gl',
    'lug' => 'lg',
    'lim' => 'li',
    'aym' => 'ay',
    'nor' => 'no',
    'rum' => 'ro',
    'dzo' => 'dz',
    'ara' => 'ar',
    'bul' => 'bg',
    'ind' => 'id',
    'por' => 'pt',
    'cam' => 'km',
    'asm' => 'as',
    'bre' => 'br',
    'gal' => 'om',
    'snd' => 'sd',
    'iii' => 'ii',
    'tuk' => 'tk',
    'xho' => 'xh',
    'arg' => 'an',
    'wln' => 'wa',
    'fin' => 'fi',
    'tag' => 'tl',
    'sho' => 'sn',
    'nav' => 'nv',
    'may' => 'ms',
    'cor' => 'kw',
    'ori' => 'or',
    'lao' => 'lo',
    'ave' => 'ae',
    'khm' => 'km',
    'que' => 'qu',
    'ice' => 'is',
    'aar' => 'aa',
    'tar' => 'tt',
    'div' => 'dv',
    'san' => 'sa',
    'lub' => 'lu',
    'scr' => 'hr',
    'lat' => 'la',
    'scc' => 'sr',
    'hrv' => 'hr',
    'run' => 'rn',
    'bak' => 'ba',
    'mon' => 'mn',
    'ben' => 'bn',
    'lin' => 'ln',
    'oss' => 'os',
    'smo' => 'sm',
    'gua' => 'gn',
    'kur' => 'ku',
    'ile' => 'ie',
    'tat' => 'tt',
    'glv' => 'gv',
    'guj' => 'gu',
    'tsn' => 'tn',
    'jav' => 'jv',
    'gla' => 'gd',
    'yid' => 'yi',
    'iri' => 'ga',
    'arm' => 'hy',
    'grn' => 'gn',
    'cze' => 'cs',
    'srp' => 'sr',
    'ltz' => 'lb',
    'pus' => 'ps',
    'kan' => 'kn',
    'bel' => 'be',
    'sna' => 'sn',
    'mol' => 'mo',
    'tir' => 'ti',
    'chv' => 'cv',
    'lav' => 'lv',
    'mlt' => 'mt',
    'fij' => 'fj',
    'cat' => 'ca',
    'baq' => 'eu',
    'pli' => 'pi',
    'lit' => 'lt',
    'her' => 'hz',
    'kom' => 'kv',
    'tso' => 'ts',
    'tgk' => 'tg',
    'gle' => 'ga',
    'kaz' => 'kk',
    'hin' => 'hi',
    'wel' => 'cy',
    'urd' => 'ur',
    'mao' => 'mi',
    'kik' => 'ki',
    'vie' => 'vi',
    'ger' => 'de',
    'slv' => 'sl',
    'tgl' => 'tl',
    'max' => 'gv',
    'dan' => 'da',
    'orm' => 'om',
    'fre' => 'fr',
    'bis' => 'bi',
    'srd' => 'sc',
    'glg' => 'gl',
    'zha' => 'za',
    'hau' => 'ha',
    'yor' => 'yo',
    'mar' => 'mr',
    'bih' => 'bh',
    'dut' => 'nl',
    'afr' => 'af',
    'mah' => 'mh',
    'per' => 'fa',
    'taj' => 'tg',
    'eng' => 'en',
    'heb' => 'he',
    'ipk' => 'ik',
    'tib' => 'bo',
    'fao' => 'fo',
    'oji' => 'oj',
    'iku' => 'iu',
    'nno' => 'nn',
    'nob' => 'nb',
    'amh' => 'am',
    'ibo' => 'ig',
    'tam' => 'ta',
    'mla' => 'mg',
    'hun' => 'hu',
    'sme' => 'se',
    'chu' => 'cu',
    'alb' => 'sq',
    'twi' => 'tw',
    'cos' => 'co',
    'slo' => 'sk',
    'nau' => 'na',
    'zul' => 'zu',
    'kua' => 'kj',
    'jpn' => 'ja',
    'tha' => 'th',
    'che' => 'ce',
    'swa' => 'sw',
    'kas' => 'ks',
    'bos' => 'bs',
    'mlg' => 'mg',
    'spa' => 'es',
    'kau' => 'kr',
    'aka' => 'ak',
    'tah' => 'ty',
    'hmo' => 'ho'
);

sub marc_lang_code_to_iso {
    $langcodes{$_[0]} // $_[0];
}

1;