sub DESTROY
{
    my $self = shift;
    $self->Finish();
}

##</code><code>##

{
    package Class;
    sub DESTROY
    {
        my $self = shift;
        $self->Finish();
    }
}

##</code><code>##

sub Class::DESTROY
{
    my $self = shift;
    $self->Finish();
}