
Aspect::Weaver - aspect weaving functionality

$weaver = Aspect::Weaver->new;
print join(',', $weaver->get_sub_names); # all wrappable subs
$weaver->install(before => 'Employee::get_name', $wrapper_code);
$weaver->install(after => 'Employee::set_name', $wrapper_code);

Used by Aspect::Advice to get all wrappable subs, and to install a before/after hook on a sub. Uses Aspect::Hook::LexWrap for the wrapping itself, and Devel::Symdump for accessing symbol table info.

See the Aspect pod for a guide to the Aspect module.