-X->+---------+ -Y->| Node | -Z->+---------+ | ^ A B v | +---------+ | Node | +---------+ #### -X->+---------+ +---------+ -Y->| Wrapper |-J->| Node | -Z->+---------+ +---------+ | ^ A B v | +---------+ | Node | +---------+ #### use Object::Destroyer qw( ); $tree = Object::Destroyer->new($tree);