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.