What should the output of this be:

    given "hello" {
        when /hello/ {
            say "One";
            when /hello/ { say "Two"; }
            when /hello/ { say "Three"; }
            continue;
        }
        say "Four";
    }

I think:

    One
    Two
    Three
    Four

But pugs thinks:

    One
    Two

The trouble is that I can't seem to come up with an example to test
whether the nested whens are breaking out of the outer when or the
given.  Anyway, I'm more curious what Perl 6 thinks it should do.

Luke

Reply via email to