Maybe this is not exactly what you're looking for, but if you want to add logging to the OO modules depending on a value, them you should check the Log4Perl module.
Alceu Rodrigues de Freitas Junior
---------------------------------
"You have enemies? Good. That means you've stood up for something, sometime in your life." - Sir Winston Churchill