Help for this page

Select Code to Download

Select or download this

$ perl -le'no strict;      print $INC{ "strict.pm" } ?1:0'
1   # False positive
...

$ perl -le'use v5.20;      print $INC{ "strict.pm" } ?1:0'
0   # False negative

Select or download this

$ perl -le'
   sub f { ( ( caller(0) )[8] & 0x602 ) == 0x602 }
...
   print f ?1:0;
'
1