Logical 'not' pointcut
use Aspect; # High-level creation my $pointcut1 = ! call 'one'; # Manual creation my $pointcut2 = Aspect::Pointcut::Not->new( Aspect::Pointcut::Call->new('one') );
Aspect::Pointcut::Not is a logical condition, which is used to create higher-order conditions from smaller parts.
It takes two or more conditions, and applies appropriate logic during the various calculations that produces a logical set-wise 'and' result.
Copyright 2001 by Marcel Gru\*:nauer
Some parts copyright 2009 - 2013 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.