# off-hand code
sub some {
     croak "Bad arg count to some" unless @_ == 2;
     croak "First arg to some not a ref" unless ref $_[0];
     # etc. etc.
     return do_stuff();
}