#!perl
use 5.020;
use Data::Dumper; 
$Data::Dumper::Deparse=1;
$Data::Dumper::Bless="my_bless";
package Foo {};
say Dumper bless { name => "foo" } => "Foo";
__END__
$VAR1 = my_bless( {
                    'name' => 'foo'
                  }, 'Foo' );