Parsing function args in Getopt::Long style

Is there a module to parse named function parameters in Getopt::Long style?

What I have in mind is something like:

# Call function
&foo('-p1' -> $v1, '-p2' => $v2);

#Define function
sub foo {
my $options = PARSER( [at] _);

my $v1 = $options->{'p1'};

# ....
}