Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^2: Nested runtime warning disabling

by kryten (Scribe)
on Jul 28, 2004 at 10:02 UTC ( #377980=note: print w/replies, xml ) Need Help??


in reply to Re: Nested runtime warning disabling
in thread Nested runtime warning disabling

Thanks. I tried out Hook::LexWrap
use Hook::LexWrap; sub test_warnings { my $lexical = wrap 'GenerateWarning', pre => sub { no warnings }; GenerateWarning(); AnotherSub(); }
This does produce the result I was looking for, but I agree it is a little hackish.

Does anyone have a more elegant solution?