Re^2: Understanding the benefit of Given/When ...

[LanX]

So, why even want a continue block on given/when? It's not needed, and isn't consistent.

I see what you mean, maybe I'm still too attached to the concepts of the workaround...(which is easier to understand for me)

Anyway I think you have a plus because you can use last for leaving without executing the continue block.

# using continue-block
my @res;
for (@test){
  push (@res, "abc")         if (/abc/);
  push (@res, "def") && last if (/def/);
  push (@res, "xyz") && next if (/xyz/);
  push (@res, "default");
} continue {
  print "\nFOR/CONT($_):",@res;
  @res=();
}

OUTPUT:

=== For/Continue    
FOR/CONT(abc):    abc    default