$tal->process(a => $a, b => $b, a_or_b => $a || $b);

To je ale nepříjemné řešení, protože zesložiťuje komunikaci mezi šablonou a “užitečným kódem” a může vyžadovat úpravy perlového kódu při změně designu stránky.

Jak tedy zapsat základní logické spojky? V dokumentace to přímo napsané není, ale nakonec to není tak složité:
Pozn.: v příkladech používám pro Petalovské atributy namespace tal, jako to je v příkladech v dokumentaci na CPANu.

Negace

Nejjednodušší varianta, před podmínku stačí dopsat false:

if (not $hashref->{"a"}) {
  #...
}

lze zapsat jako

<span tal:condition="false:a">...</span>

Konjunkce (logické and)

Logický and jde vytvořit jednoduše, jako vyhodnocení posloupnosti podmínek (tj. vnořením tagů s podmínkou do sebe). Problém je, že tak ve výsledném HTML kódu vzniknou nechtěné elementy. Tomu jde v Petalu zabránit přidáním atributu omit-tag s pravdivou hodnotou (například omit-tag="string:1") u pomocných tagů, přidaných jen kvůli podmínkám.

if ($hashref->{"a"} && $hashref->{"b"}) {
  #...
}

lze tedy zapsat jako

<span tal:omit-tag="string:1" tal:condition="a">
  <span tal:condition="b">
    ...
  </span>
</span>

Disjunkce (logické or)

S disjunkcí to je o něco složitější, trik s vnořování tagů tu zopakovat nejde. Na druhou stranu lze využít schopnost Petalu vkládat hodnoty proměnných přímo do textu pomocí dolarové notace – ${x} se při zpracování šablony nahradí hodnotou proměnné x. To lze využít ke skládání hodnot pro podmínky. Přidáním string: na začátek podmínkového atributu Petal přinutíme, aby výraz v podmínce zpracovával jako řetězec (a ne jako název proměnné). Pak do něj lze zadat více proměnných najednou (viz příklad). Pokud alespoń jedna z nich bude mít pravdivou hodnotu, pak bude mít pravdivou hodnotu celý řetězec a podmínak bude splněna.

if ($hashref->{"a"} || $hashref->{"b"}) {
  #...
}

lze zapsat jako

<span tal:condition="string:${a}${b}">
  ...
</span>

Složitější výrazy

Už budou trochu problém… každou logickou formuli sice lze přepsat na konjunkci disjunkcí (konjunktivní normální tvar) a na ten pak aplikovat výše uvedené postupy, ale o přehlednosti takové šablony bych si dovolil předem pochybovat. O skutečné potřebě používat takové podmínky také.

První problém: soubory s Masonovskými komponentami obsahují HTML kód (z pochopitelných důvodů psaný jako UTF-8) a je potřeba Perl přesvědčit, že je tak také má interpretovat. V “normálním” skriptu to lze udělat například přidáním řádku

use utf8;

na začátek souboru. Masonovská šablona sice normální skript není, ale Mason šablony při zpracování překládá na skripty (takže text+html v šabloně padne do řetězcových konstant) a ty pak spouští. Takže zbývá jen odhalit, jakým způsobem do nich propašovat výše uvedený řádek. Přímočerá možnost je uvést ho do sekce <%init> u každé komponenty. Nepraktické, že? Naštěstí jde Masonu v konfiguraci Apache předat kus kódu, který bude přidán na začátek kódu každé komponentu. Při použití přes mod_perl stačí do konfigurace Apache přidat řádek:

PerlSetVar MasonPreamble "use utf8;"

Podobně pro (Fast)CGI.

Druhý problém: Apache2::Request nenastavuje interní Unicode flag automaticky, přestože z HTTP hlaviček ví, že data v Unicode jsou (kvůli možným útokům přes neplatné UTF-8 znaky). Při normální práci přes mod_perl není problém parametry správně překódovat nebo zpracovat ručně, ne přes Apache2::Request. s Masonem to je trochu horší – parametry si zpracovává sám pomocí Apache2::Request a nepodařilo se mi najít jednoduché řešení, jak zasáhnout přímo do zpracování parametrů, ale bez změn ve zdrojových kódech Masonu. Naštěstí se k parametrům dá dostat v Masonovských autohandlerech ještě předtím, než se k nim dostane libovolná komponenta. Vložení následujícího kódu do autohandleru v kořenovém adresáři aplikace

<%init>
%ARGS = map { 	$_ = Encode::decode('utf8', $_); }%ARGS;
$m->call_next(%ARGS);
<%init>

způsobí překódování parametrů do UTF tak, že všechny ostatní komponenty je dostanou ve správném tvaru.

Třetí, čtvrtý, … problém: řetězce z databáze, souborů a dalších zdrojů. Ale to až někdy jindy. A nebo na to přijdete sami