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.