1 Check interaction of __WARN__, __DIE__ & lexical Warnings
7 BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
8 BEGIN { $SIG{__DIE__} = sub { print "DIE -- @_" } }
10 use warnings qw(deprecated) ;
12 use warnings FATAL => qw(deprecated) ;
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.