Select Code to Download

package A;
...
...
    $self->SUPER::DESTROY;
    return;    
}

package A;
...
...
    warn 'B::DESTROY';
    return;    
}