committable6

query

all sub match ($str, $flip) { return False if $flip eq "no"; return $str ~~ rx/foo/;}; for 0..104 { for "no", "yes" -> $flip { if my $match = match("something",$flip) { die "What?!" unless $match } }}

result

¦«2014.01,2014.02,2014.03.01,2014.04,2014.05,2014.06,2014.07,2014.08,2014.09,2014.10,2014.11,2014.12,2015.01.1,2015.02,2015.03,2016.08.1,2016.09,2016.10,2016.11,2016.12,HEAD»: 
¦«2015.04,2015.07.2,2015.11»: What?!
  in block  at /tmp/WRtyY1nFwK:1
  in block <unit> at /tmp/WRtyY1nFwK:1
 «exit code = 1»
¦«2015.05»: What?!
  in block  at /tmp/WRtyY1nFwK:1
  in block <unit> at /tmp/WRtyY1nFwK:1
  in any <unit-outer> at /tmp/WRtyY1nFwK:1
 «exit code = 1»
¦«2015.06»: What?!
  in block  at /tmp/WRtyY1nFwK:1
 «exit code = 1»
¦«2015.09»: What?!
  in block  at /tmp/WRtyY1nFwK:1
  in method sink-all at /tmp/whateverable/rakudo-moar/c0e0c9748478d517956e38fe1f1a4aa89dba2419/share/perl6/runtime/CORE.setting.moarvm:1
  in block <unit> at /tmp/WRtyY1nFwK:1
 «exit code = 1»
¦«2015.10»: What?!
  in block  at /tmp/WRtyY1nFwK:1
  in method sink-all at /tmp/whateverable/rakudo-moar/3df26301e146883b287138df382878a0414f62de/share/perl6/runtime/CORE.setting.moarvm:1
  in block <unit> at /tmp/WRtyY1nFwK:1
 «exit code = 1»
¦«2015.12,2016.02,2016.03,2016.04,2016.05,2016.06,2016.07.1»: What?!
  in block  at /tmp/WRtyY1nFwK line 1
  in block <unit> at /tmp/WRtyY1nFwK line 1
 «exit code = 1»