<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=windows-1251"
http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Ñäåëàòü êëàññ<br>
<br>
<small>package MyProvider;<br>
<br>
use strict;<br>
use utf8;<br>
<br>
use base qw(Template::Provider);<br>
<br>
sub _load {<br>
my $self = shift;<br>
my($data, $error) = $self->SUPER::_load(@_);<br>
<br>
return ($data, $error) unless defined $data;<br>
<br>
unless (utf8::is_utf8($data->{'text'})) {<br>
utf8::decode($data->{'text'});<br>
};<br>
<br>
return ($data, $error);<br>
};<br>
<br>
1;</small><br>
<br>
Çàòåì<br>
<br>
<small>my %options = (<br>
LOAD_TEMPLATES => [<br>
</small><small>MyProvider</small><small>->new(<br>
INCLUDE_PATH => ...,<br>
DEFAULT => ...,<br>
COMPILE_EXT => ...,<br>
COMPILE_DIR => ...,<br>
),<br>
],<br>
PRE_CHOMP => 1,<br>
POST_CHOMP => 1,<br>
INTERPOLATE => 1,<br>
EVAL_PERL => 1,<br>
PRE_DEFINE => {},<br>
PRE_PROCESS => ...,<br>
POST_PROCESS => ...,<br>
ERROR => ...,<br>
);<br>
<br>
my $tt = Template->new(%options);</small><br>
<br>
Øàáëîíû äîëæíû áûòü â utf.<br>
<br>
Dmitry E. Oboukhov ïèøåò:
<blockquote cite="mid:20080808071711.GB15051@work.uvw.ru" type="cite">
<pre wrap="">íà Yapc ïîìíèòñÿ êòî-òî äîêëàäûâàëñÿ ñ òåì ÷òî äëÿ ñàáæà êàêîé-òî õàê
ïèñàëè ÷òîáû áåç BOM íîðìàëüíî ðàáîòàëî. íå îñòàëîñü ññûëêè íà ýòîò äîêëàä?
ñèæó âîò êîâûðÿþñü è òîæå íå ìîãó ðåøèòü ÷òî äåëàòü
BOM - íåïðèåìëåìî,
òîëè íàñëåäíèêà íàïèñàòü, òîëè ôóíêöèþ õàêíóòü...
--
... mpd is off
. ''`. Dmitry E. Oboukhov
: :’ : <a class="moz-txt-link-abbreviated" href="mailto:unera@debian.org">unera@debian.org</a>
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
</pre>
<pre wrap="">
<hr size="4" width="90%">
--
Moscow.pm mailing list
<a class="moz-txt-link-abbreviated" href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a class="moz-txt-link-freetext" href="http://moscow.pm.org">http://moscow.pm.org</a>
</pre>
</blockquote>
<br>
</body>
</html>