<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>Template: 'xx_tr_template.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">3</span><span class="sym">;</span> <span class="slc"># number of tests</span>
<span class="kwc">my</span> <span class="kwb">$name</span> <span class="sym">=</span> <span class="str">""</span><span class="sym">;</span> <span class="slc"># transliterations name</span>
<span class="kwc">my</span> <span class="kwb">$reversible</span> <span class="sym">=</span> <span class="num">0</span><span class="sym">;</span> <span class="slc"># is the transliteration reversible?</span>
<span class="kwc">my</span> <span class="kwb">$input</span> <span class="sym">=</span> <span class="str">""</span><span class="sym">;</span> <span class="slc"># short corpus...</span>
<span class="kwc">my</span> <span class="kwb">$output_ok</span> <span class="sym">=</span> <span class="str">""</span><span class="sym">;</span> <span class="slc"># ...its correct transliteration</span>
<span class="kwc">my</span> <span class="kwb">$context</span> <span class="sym">=</span> <span class="str">""</span><span class="sym">;</span> <span class="slc"># context-sensitive example</span>
<span class="kwc">my</span> <span class="kwb">$context_ok</span> <span class="sym">=</span> <span class="str">""</span><span class="sym">;</span> <span class="slc"># ...its correct transliteration</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="kwb">$reversible</span><span class="sym">,</span> <span class="str">"$name: reversibility"</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: transliteration"</span><span class="sym">);</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">$context</span><span class="sym">);</span>
<span class="slc"># 3</span>
<span class="kwd">is</span><span class="sym">(</span><span class="kwb">$output</span><span class="sym">,</span> <span class="kwb">$context_ok</span><span class="sym">,</span> <span class="str">"$name: transliteration (context-sensitive)"</span><span class="sym">);</span>
<span class="slc"># vim: sts=4 enc=utf-8</span>
</pre>
</body>
</html>
<!--HTML generated by highlight 2.4.8, http://www.andre-simon.de/-->