sub foo($$) : Direct {
    ...
}

##</code><code>##

my $numArgs = GiveMeTheNumberOfRequiredArgumentsOf(\&foo);