t/pragma/warn/8signal

   1 Check interaction of __WARN__, __DIE__ & lexical Warnings
   2
   3 TODO
   4
   5 __END__
   6 # 8signal
   7 BEGIN { $SIG{__WARN__} = sub { print "WARN -- @_" } }
   8 BEGIN { $SIG{__DIE__}  = sub { print "DIE -- @_" } }
   9 1 if 1 EQ 2 ;
  10 use warnings qw(deprecated) ;
  11 1 if 1 EQ 2 ;
  12 use warnings FATAL => qw(deprecated) ;
  13 1 if 1 EQ 2 ;
  14 print "The End.\n" ;
  15 EXPECT
  16 WARN -- Use of EQ is deprecated at - line 6.
  17 DIE -- Use of EQ is deprecated at - line 8.
  18 Use of EQ is deprecated at - line 8.