сделал вот так: $retval .=
$c->div(
$c->span({}, $_->{'content'}),
$_->{'info'} ? $c->span({-class=>'red'}, '(' . $_->{'info'} . ')') :
'',
);
не очень красиво, правда :(2009/7/29 Павел Тимонин <[email protected]> > буквально вот так: > > > perl -MData::Dumper -Mutf8 -e 'print Dumper("тест")' ~/ :) $VAR1 = > "\x{442}\x{435}\x{441}\x{442}"; > >
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
