view release on metacpan or  search on metacpan

t/ControlStructures/LoopsRequireLabels.run  view on Meta::CPAN

## name mode max_lines exactly at threshold
## parms { mode => 'max_lines', max_lines => 3 }
## failures 0
## cut

while (1) {
    next;
}

## name cascade outer labeled inner bare break
## parms { mode => 'always' }
## failures 2
## cut

OUTER: while (1) {
    while (1) {
        next;
    }
}

## name cascade outer labeled triple nested
## parms { mode => 'always' }
## failures 2
## cut

OUTER: while (1) {
    while (1) {
        while (1) {
            next;
        }
    }
}

## name cascade all loops labeled innermost break bare
## parms { mode => 'nested' }
## failures 1
## cut

OUTER: while (1) {
    MIDDLE: while (1) {
        INNER: while (1) {
            next;
        }
    }