sub _move {
    unless ($_[1]->descendants('slip')){
         $_[0]->purge();
         return;
    }
    foreach my $descendant ...