NAME Aspect - Aspect-Oriented Programming (AOP) for Perl SYNOPSIS use Aspect; # Run some code "Advice" before a particular function before { print "About to call create\n"; } call 'Person::create'; # Run Advice after several methods and hijack their return values after { print "Called getter/setter " . $_->sub_name . "\n"; $_->return_value(undef); } call qr/^Person::[gs]et_/; # Run Advice conditio