NAME

Sub::Mutate - examination and modification of subroutines

SYNOPSIS

        use Sub::Metadata qw(
                sub_body_type
                sub_closure_role
                sub_is_lvalue
                sub_is_constant
                sub_is_method mutate_sub_is_method
                sub_is_debuggable mutate_sub_is_debuggable
                sub_prototype mutate_sub_prototype
        );

        $type = sub_body_type($sub);
        $type = sub_closure_role($sub);
        if(sub_is_lvalue($sub)) { ...
        if(sub_is_constant($sub)) { ...
        if(sub_is_method($sub)) { ...
        mutate_sub_is_method($sub, 1);
        if(sub_is_debuggable($sub)) { ...
        mutate_sub_is_debuggable($sub, 0);
        $proto = sub_prototype($sub);
        mutate_sub_prototype($sub, $proto);

        use Sub::WhenBodied qw(when_sub_bodied);

        when_sub_bodied($sub, sub { mutate_sub_foo($_[0], ...) });

DESCRIPTION

This module is a backward-compatibility wrapper repackaging functions that are now supplied by other modules. It is deprecated to use this module: you should instead get the functions directly from Sub::Metadata or Sub::WhenBodied as appropriate.

FUNCTIONS

sub_body_type(SUB)

sub_closure_role(SUB)

sub_is_lvalue(SUB)

sub_is_constant(SUB)

sub_is_method(SUB)

mutate_sub_is_method(SUB, NEW_METHODNESS)

sub_is_debuggable(SUB)

mutate_sub_is_debuggable(SUB, NEW_DEBUGGABILITY)

sub_prototype(SUB)

mutate_sub_prototype(SUB, NEW_PROTOTYPE)

These functions are supplied by Sub::Metadata. You should use that module directly. See that module for documentation.

when_sub_bodied(SUB, ACTION)

This function is supplied by Sub::WhenBodied. You should use that module directly. See that module for documentation.

SEE ALSO

Sub::Metadata, Sub::WhenBodied

AUTHOR

Andrew Main (Zefram) <zefram@fysh.org>

COPYRIGHT

Copyright (C) 2009, 2010, 2011, 2013, 2015 Andrew Main (Zefram) <zefram@fysh.org>

LICENSE

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.