package T;
use Data::Dump::Streamer;

sub foo { \$_[0] }
sub bar { my $x=shift; \$x }

my $o=bless [],'T';

Dump($o->foo,$o->bar,$o)->Names(qw(foo bar o))->Out();
__END__
$foo = \$o;
$bar = \do { my $v = 'V: $o' };
$o = bless( [], 'T' );
$$bar = $o;