use Contextual::Return;
use Carp qw(croak);
...
sub foo {
  ...
  return
    LIST { some listy expression here }
    SCALAR { croak "please invoke me in a list context" }
  ;
}
[download]