add language code

lib/WebService/Libris/Book.pm

@@ -1,5 +1,6 @@
 package WebService::Libris::Book;
 use Mojo::Base 'WebService::Libris';
+use WebService::Libris::Utils qw/marc_lang_code_to_iso/;
 use strict;
 use warnings;
 use 5.010;
@@ -26,4 +27,16 @@ sub authors_text  {
     }
 }
 
+sub language {
+    my $self = shift;
+    my $l = $self->dom->at('language');
+    return unless $l;
+    $l = $l->attrs->{'rdf:resource'};
+    if ($l =~ m{http://purl.org/NET/marccodes/languages/(\w{3})(?:\#lang)?}) {
+        return marc_lang_code_to_iso($1);
+    } else {
+        return;
+    }
+}
+
 1;

lib/WebService/Libris/Utils.pm

@@ -0,0 +1,195 @@
+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;