I would definitely love to have a native given expression today. It does not mean that I believe it's likely, but certainly it's highly desirable.

given EXPR {
    when EXPR { ... }
    when EXPR { ... }
    ...
}

my sub get_data ($data) {
    given $data {
      when /^\d+$/    { return %var{""} = $_ }
      when 'previous' { return %var{""} // fail NoData }
      when %var       { return %var{""} = %var{$_} }
      default         { die Err::BadData : msg=>"Don't understand $_" 
+}
  }  
}
[download]

See Apocalypse 4 and Exegesis 4

 _  _ _  _  
(_|| | |(_|><
 _|