Dear Autrijus, On Sun, 22 Sep 2002, 11:06 GMT+08 Autrijus Tang wrote:
> Incidentally I have just finished a skeleton of Encode::compat, named > after Apache::compat (lower case) since it's a 'pragma' for Encode > usage, instead of a subcomponent of Encode. > It is available on CPAN, or at: > http://www.autrijus.org/Encode-compat-0.01.tar.gz > All it does is translate whatever call it receives into Text::Iconv, or > (in the future) Unicode::MapUTF8 to perform the actual work. > The is_utf8(), _utf8_on() and _utf8_off() calls are performed by the > method native to the perl version -- 5.6.1 would use pack/unpack, 5.6.0 > uses tr//CU, etc. > The usage is: > use Encode::compat; # a no-op for Perl v5.7.1+ use Encode qw(...); > # all constants and imports works transparently > # use Encode functions as normal > For now it only support perl v5.6.1, and merely provides the three > utility function above (encode(), decode() and from_to()), with a very > kludgy FB_HTMLCREF fallback against 'latin-1' in from_to. > Theoretically, it could be backported to 5.005 and earlier, with none of > the unicode-related semantics available, and serves only as a > abstraction layer above Text::Iconv, Unicode::MapUTF8 and possibly other > transcoding modules. > My own aim was to deploy applications that can work across Perl versions > with the same interface; what do you, and other people on -unicode, feel > about such an attempt? > Thanks, > /Autrijus/ this is a very cool way to use Encode with 5.6.1! Just adding 3 files and using use Encode::compat; instead of use Encode; is absolutely great, IMO. The first thing I found with your version 0.01 is that, if used with 5.8.0, it does not use Encode directly. I think, the if ($] >= 5.007001 or $INC{'Encode.pm'}) { # nothing happens -- Encode.pm already available. $INC{'Encode.pm'} = __FILE__; require Encode::compat::common; require Encode::compat::5006001; } section of your 'compat.pm' file has to be changed to if ($] >= 5.007001 or $INC{'Encode.pm'}) { # nothing happens -- Encode.pm already available. use Encode; } for proper use with 5.8.0+. To test it with 5.6.1, I first had to install the Text::Iconv module. I will now play with it. Thanks a lot for your efforts in providing such a nice enhancement. -- rob.
