сделал вот так:    $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

Ответить