sub SomeSubOrMethod {
    my $thing = shift;
    croak 'Bad param' unless $thing and ref $thing;
    ...