# untested sub DESTROY { my ($self) = @_; die "destroy called with non-empty stack" if $self->stack_count; }