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.