Aspect::Advice::After - 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 after 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.
after
The after 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 returning in the pointcut to exclude join points occuring due to exceptions.
returning
If you only care about handling exceptions you should use throwing in the pointcut to exclude join points occuring due to normal return.
throwing
Adam Kennedy <adamk@cpan.org>
Copyright 2010 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Aspect, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Aspect
CPAN shell
perl -MCPAN -e shell install Aspect
For more information on module installation, please visit the detailed CPAN module installation guide.