Re^2: utf8 characters in Data::Dumper

[remiah]

in reply to Re: utf8 characters in Data::Dumper
in thread utf8 characters in Data::Dumper

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?