control_across_runloop.t

use Test;

# L<S04/Control Exceptions>

# Test primarily aimed at Niecza

plan 1;

{
    sub foo($x = last) { $x }

    my $i = 0;
    for 1,2,3 { $i++; foo(); }

    is $i, 1, 'control operator last can be used in an inferior context';
}

# vim: expandtab shiftwidth=4