<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Example: '11_tr_Common_DEU.t'</title>
<link rel="stylesheet" type="text/css" href="highlight.css">
</head>
<body class="hl">
<pre class="hl"><span class="kwa">use</span> strict<span class="sym">;</span>
<span class="kwa">use</span> Test<span class="sym">::</span>More tests <span class="sym">=></span> <span class="num">4</span><span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$name</span> <span class="sym">=</span> <span class="str">"Common DEU"</span><span class="sym">;</span>
<span class="slc"># Taken from http://www.unhchr.ch/udhr/lang/ger.htm</span>
<span class="kwc">my</span> <span class="kwb">$input</span> <span class="sym">=</span> <span class="str">"Alle Menschen sind frei und gleich an Würde und "</span> .
<span class="str">"Rechten geboren. Sie sind mit Vernunft und Gewissen "</span> .
<span class="str">"begabt und sollen einander im Geist der "</span> .
<span class="str">"Brüderlichkeit begegnen."</span><span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$output_ok</span> <span class="sym">=</span> <span class="str">"Alle Menschen sind frei und gleich an Wuerde und "</span> .
<span class="str">"Rechten geboren. Sie sind mit Vernunft und Gewissen "</span> .
<span class="str">"begabt und sollen einander im Geist der "</span> .
<span class="str">"Bruederlichkeit begegnen."</span><span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$ext</span> <span class="sym">=</span> <span class="str">"ÄÖÜäöüß"</span><span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$ext_out_ok</span> <span class="sym">=</span> <span class="str">"AeOeUeaeoeuess"</span><span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$all_caps</span> <span class="sym">=</span> <span class="str">"MAßARBEIT -- Spaß"</span><span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$all_caps_ok</span> <span class="sym">=</span> <span class="str">"MASSARBEIT -- Spass"</span><span class="sym">;</span>
<span class="kwa">use</span> Lingua<span class="sym">::</span>Translit<span class="sym">;</span>
<span class="kwc">my</span> <span class="kwb">$tr</span> <span class="sym">=</span> new Lingua<span class="sym">::</span><span class="kwd">Translit</span><span class="sym">(</span><span class="kwb">$name</span><span class="sym">);</span>
<span class="kwc">my</span> <span class="kwb">$output</span> <span class="sym">=</span> <span class="kwb">$tr</span><span class="sym">-></span><span class="kwd">translit</span><span class="sym">(</span><span class="kwb">$input</span><span class="sym">);</span>
<span class="slc"># 1</span>
<span class="kwd">is</span><span class="sym">(</span><span class="kwb">$tr</span><span class="sym">-></span><span class="kwd">can_reverse</span><span class="sym">(),</span> <span class="num">0</span><span class="sym">,</span> <span class="str">"$name: not reversible"</span><span class="sym">);</span>
<span class="slc"># 2</span>
<span class="kwd">is</span><span class="sym">(</span><span class="kwb">$output</span><span class="sym">,</span> <span class="kwb">$output_ok</span><span class="sym">,</span> <span class="str">"$name: UDOHR transliteration"</span><span class="sym">);</span>
<span class="kwc">my</span> <span class="kwb">$ext_output</span> <span class="sym">=</span> <span class="kwb">$tr</span><span class="sym">-></span><span class="kwd">translit</span><span class="sym">(</span><span class="kwb">$ext</span><span class="sym">);</span>
<span class="slc"># 3</span>
<span class="kwd">is</span><span class="sym">(</span><span class="kwb">$ext_output</span><span class="sym">,</span> <span class="kwb">$ext_out_ok</span><span class="sym">,</span> <span class="str">"$name: umlauts and sz-ligature"</span><span class="sym">);</span>
<span class="kwc">my</span> <span class="kwb">$o</span> <span class="sym">=</span> <span class="kwb">$tr</span><span class="sym">-></span><span class="kwd">translit</span><span class="sym">(</span><span class="kwb">$all_caps</span><span class="sym">);</span>
<span class="slc"># 4</span>
<span class="kwd">is</span><span class="sym">(</span><span class="kwb">$o</span><span class="sym">,</span> <span class="kwb">$all_caps_ok</span><span class="sym">,</span> <span class="str">"$name: all caps"</span><span class="sym">);</span>
</pre>
</body>
</html>
<!--HTML generated by highlight 2.4.8, http://www.andre-simon.de/-->