Comment vérifier si le code est sorti d'une boucle à cause d'une dernière commande ?

Question

Dans une boucle, j'ai plusieurs conditions et si la condition n'est pas satisfaite, je sors de la boucle en utilisant la fonction last la syntaxe.

while (condition) {
    if (possibility 1) {
        ...
        last;
    }

    if (possibility 2) {
        if (possibility 3) {
            ...
            last;
        }
        ...
        last;
    }
}

Une fois que je suis sorti de la boucle, j'ai besoin de savoir si j'ai utilisé le dernier pour sortir, ou la fonction condition n'était plus vrai. Une façon de le faire est d'écrire une instruction if qui nie toutes les valeurs de possibilités .

Je suis à la recherche d'un moyen plus simple ou plus élégant de le faire.

Existe-t-il une variable Perl qui stocke l'information selon laquelle nous sommes sortis de la boucle en raison de last ? Ou dois-je maintenir une telle variable moi-même ?