use MooseX::Declare;
class InDeclare {
    use overload '""' => \&to_string2;

    has val => is => 'rw';
    sub to_string2 { sprintf "(%s)", $_[0]->val }
};

class InDeclareDirty is dirty {
    use overload '""' => \&to_string2;

    has val => is => 'rw';
    sub to_string2 { sprintf "(%s)", $_[0]->val }
};


package main;
use strict;
use warnings;
use Test::More;

my $d = InDeclare->new(val=>666);
is $d,   "(666)", "mxd is ok";    # PASS: "(666)"
is "$d", "(666)", "mxd is ok (Q)"; # FAIL: "InDeclare=HASH(0x2166ab0)"

my $dd = InDeclareDirty->new(val=>6666);
is $dd,   "(6666)", "mxdd is ok";
is "$dd", "(6666)", "mxdd is ok (Q)";

done_testing;