Aspect::Pointcut::Highest - Pointcut for preventing recursive matching
use Aspect; # High-level creation my $pointcut1 = highest; # Manual creation my $pointcut2 = Aspect::Pointcut::Highest->new;
For aspects including timers and other Aspect::Advice::Around-based advice, recursion can be significant problem.
highest pointcut solves this problem by matching only on the highest invocation of a function. If the function is called again recursively within the first call, at any depth, the deeper calls will be not match and the advice will not be executed.
Adam Kennedy <firstname.lastname@example.org>
Marcel Grünauer <email@example.com>
Ran Eilam <firstname.lastname@example.org>
Copyright 2001 by Marcel Grünauer
Some parts copyright 2009 - 2012 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.