sub _move {
    # Skip this section if no "<slip>" descendants are found
    if ( !scalar $_[1]->descendants('slip') ) {
        $_[1]->delete;
        $_[0]->purge;
    }

    # "<slip>" descendants found, process as normal
    else {
        <...>
        $_[1]->delete;
        $_[0]->flush();
    }
        
    1;
}