sub fooge
{
     my ($foo, $bar, @baz) = @_;

     # ...

     if ($foo->isa('Acme::Frobnicator'))
     {
          die "Missing 'baz' parameter to fooge()\n" unless (@baz);
          $foo->frob(@baz);
          # ...
     }

     # ...
}