Select Code to Download

#!/usr/bin/perl

...
print "calling method with B's data\n";
$return = $obj->method('B data');
print "return value was $return\n";

B new
calling method with generic data
...
B=HASH(0xa01116c): B DESTROY
B=HASH(0xa01116c): A DESTROY
B=HASH(0xa01116c): Base DESTROY