NAME Sub::Prototype - Set a subs prototype SYNOPSIS use Sub::Prototype; BEGIN { my $code = sub { ... }; set_prototype($code, '&@'); *main::my_func = $code; } my_func { ... } @list; FUNCTIONS This module only has one function, which is also exported by default: set_prototype(\&coderef, $prototype) set_prototype(\&some_function, '$$'); Sets the prototype for "coderef" to $prototype. THANKS Shawn M Moore for the idea and tests. AUTHOR Florian Ragwitz <rafl@debian.org> COPYRIGHT AND LICENSE Copyright (c) 2008 Florian Ragwitz This module is free software. It may distribute it under the same terms as perl itself.