And for those who have a tiny C&P buffer

sub empty_table {
    delete @{"$_[0]::"}{grep !/\b::\z/, keys %{"$_[0]::"}};
}
[download]

_________
broquaint