Select Code to Download

package A;
my $self;
...
my $a = bless \do { my $o } => 'A';
print "About to call via $a\n";
$a->foo;

sub called_by {
     return ( caller 1 )[0]->caller;
}