[Moscow.pm] use utf8 vs no use utf8

[Dmitry E. Oboukhov]

навеяло темой про CGI :)

по работе иногда приходится писать модули для тулзовин написанных во
времена царя гороха, которые без использования use utf8 работают и
если им тудыть эту директиву вставить то придется очень много
переделывать

ну и в общем допустим пишем мы пакет

package MyPackage;
sub foo
{
    ...
    return $string;
}

есть ли возможность модулю в котором есть директива use utf8 вернуть
utf-строку, а модулю (вообще говоря блоку) который не содержит оной
директивы вернуть простую байтовую строку?

то есть что-то в духе

sub foo
{
    ...
    return is_caller_utf8 ? $string : encode utf8 => $string;
}
--
... mpd paused: Manowar - Call To Arms

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera на debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
----------- следущая часть -----------
A non-text attachment was scrubbed...
Name: отсутствует
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20090728/38c6aed7/attachment.bin>