perlのテンプレートエンジン、Text::Xslateの便利機能一覧１。 - Qiita

早そうで有名なXslateの小技。詳しくはperldocを参照してください。使い方しらないけれどとりあえず自己流の便利と思ったものを掲載してみます。 一応、Text::Xslate::Bridge::Starを使っているのが前提です。 共通マクロのimport :macro multi_line -> $text { :my $list = split($text,rx('\r?\n') ); :for $list -> $row { :$row; :if(!$~row.is_last) { <br /> :} :} :} :macro pager ->$pager{ <ul class="pager"> :for $pager.pages_in_navigation ->$page { <li> :if($page == $pager.current_page){ :$page :}el