Execute code after a function is called
use Aspect;
after {
# Trace all returning calls to your module
print STDERR "Called my function " . $_->sub_name . "\n";
# Suppress exceptions AND alter the results to foo()
if ( $_->short_name eq 'foo' ) {
if ( $_->exception ) {
$_->return_value(1);
} else {
$_->return_value( $_->return_value + 1 );
}
}
} call qr/^ MyModule::\w+ $/
The \*(C`after\*(C' advice type is used to execute code after a function is called, regardless of whether or not the function returned normally or threw an exception.
The \*(C`after\*(C' advice type should be used when you need to potentially make multiple different changes to the returned value or the thrown exception.
If you only care about normally returned values you should use \*(C`returning\*(C' in the pointcut to exclude join points occuring due to exceptions.
If you only care about handling exceptions you should use \*(C`throwing\*(C' in the pointcut to exclude join points occuring due to normal return.
Adam Kennedy <[email protected]>
Copyright 2010 - 2013 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.