Ran Eilam > Aspect-0.12 > Aspect::AdviceContext    Annotate this
POD   New  2 Open  1 View/Report Bugs Source  
Latest Release: Aspect-0.97_02   Aspect::AdviceContext - a
pointcut context for advice code     $pointcut = call
qr/^Person::[gs]et_/ & cflow company => qr/^Company::/;    #
using in 'before' advice code   before {      my $context =
shift;             # context is only param to advice code
print $context->type;            # 'before': advice type:
before/after      print $context->pointcut;        # $pointcut:
the pointcut for this advice      print $context->sub_name;
# package + sub name of matched sub      print
$context->package_name;    # 'Person': package name of matched
sub      print $context->short_sub_name;  # sub name of matched
sub      print $context->self;            # 1st parameter to
matched sub      print $context->params->[1];     # 2nd
parameter to matched sub      $context->append_param($rdbms);  #
append param to matched sub      $context->append_params($a,
$b); # ap