Help for this page
#!/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