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

my ($not_foo) = context() // say "Whoops";
say $not_foo;

(my ($foo) = context()) // say "Whoops";
say $foo;

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