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 COPYRIGHT AND LICENSE Copyright (c) 2008 Florian Ragwitz This module is free software. It may distribute it under the same terms as perl itself.