sub foo { return; }
sub bar {
   my ($a, $b, $c) = @_;
   return if !defined $b;
   die    if !defined $c;
}
bar(1, foo(), 3);       # explodes