Select Code to Download

sub context { wantarray ? (qw/foo bar/) : -1 }

my ($not_foo) = context() // say "Whoops";
...
# This works if context() can never return 0
my ($also_foo) = context() or say "Whoops";
say $also_foo;