Thanks for reply. grondilu
I don't think Data::Dumper changes anything about this issue.
I see. This outputs Hiragana Letter A.
perl -MData::Dumper -Mutf8 -MEncode=encode -e 'print Dumper encode("UTF-8","Hiragana Letter A ...")'
$VAR1 = 'Hiragana Letter A ...';
I have been carelessly used Data::Dumper so far, cause it has been very handy for me. And now I think of overriding "Dumper" function and ... feels not good.
case 1: Anyway, override Dumper.
use Data::Dumper;
use Encode::Deep;
no strict 'refs';
no warnings 'redefine';
local *Dumper = sub {
print "in Dumper override\n";
return Data::Dumper::Dumper( Encode::Deep::encode('UTF-8',@_)
+);
};
use strict;
use warnings;
use utf8;
print Dumper "Hiragana Letter A ...";
Maybe, I should not do this.
case 2: sub classing(?), Data::Dumper.
I would like to make wrapper class like this.
use strict; use warnings;
{ package MyDumper;
use Any::Moose;
use Encode::Deep;
sub Dumper{
my $self=shift;
return Data::Dumper::Dumper( Encode::Deep::encode('UTF-8',@_)
+);
}
1;
}
use utf8;
my $d=MyDumper->new();
print $d->Dumper("Hiragana Letter A ...");
I could not "extends" Data::Dumper, cause it's new() function forced to have 2 args ... (I should learn Data::Dumper more...).
Or, Do you have any other module, that cares for encoding?
|