Help for this page

Select Code to Download

Select or download this

  is( $^W, 1, 'warnings are on' );
  third_party_code();
  is( $^W, 1, 'warnings are still on' );

Select or download this

   {   local $^W;
       third_party_code();
       ok (!$^W, 'warnings still off');
   }