It should be possible to write your own Our::warnings pragma in order to activate only the finegrained warnings you want.

that's certainly better than using no warnings at all.

update

Something like

sub import { 
   my ($class, $date) = @_;

   ...
   warnings->import(@wanted_warnings);
   ...
}
[download]