Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 23 lines (19 sloc) 0.283 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#!/usr/bin/perl

sub t1 {
    for my $x (0, 1, 2) {
        my $y = 3 if $x && $x == 2;
    }
}

sub t2 {
    for my $x (0, 1, 2) {
        return if $x && $x == 2;
    }
}

sub t3 {
    for my $x (0, 1, 2) {
        last if $x && $x == 2 && $x == 2 && $x == 2;
    }
}

t1;
t2;
t3;
Something went wrong with that request. Please try again.