Today’s Perl’ism: “shift || sub { shift; };” works as advertized.