The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Aspect::Weaver - aspect weaving functionality

SYNOPSIS

  $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);

DESCRIPTION

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 ALSO

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