DD-mop.pl

use Data::Dumper;
use Class::Method::Modifiers qw(install_modifier);
$Data::Dumper::Useperl = 1;
install_modifier 'Data::Dumper', around => '_dump', sub
{
	my $next = shift;
	my $self = shift;
	my ($val, $name) = @_;
	
	require Scalar::Util;
	require B;
	if (Scalar::Util::blessed($val) and $val->isa('mop::object'))
	{
		my $guts = $val->dump;
		delete $guts->{$_} for qw( __ID__ __SELF__ );
		my $class = B::perlstring(delete $guts->{__CLASS__});
		my $str   = $self->$next($guts, $name);
		return "mop::anoint($str, $class)";
	}
	
	return $self->$next(@_);
};