Select Code to Download

use constant SNaN => unpack 'd',pack 'Q', 0x7ff0000000000001;

C:\test>perl -MO=Deparse -le"use enum qw[false true]; print 'fred' if 
+false; print 'bill' if true"
use enum ('false', 'true');
...
'???';
print 'bill';
-e syntax OK

C:\test>perl -MO=Deparse -le"sub PI(){ 2*atan2(1,0) }; print PI; if( P
+I == PI ) { print 'Here'; }"
BEGIN { $/ = "\n"; $\ = "\n"; }
...
    print 'Here'
};
-e syntax OK

C:\test>perl -MO=Deparse -le"use constant SNaN => unpack'd', pack'Q',0
+x7ff0000000000001; print SNaN; if( SNaN != SNaN ) { print 'here'; }"
BEGIN { $/ = "\n"; $\ = "\n"; }
...
print unpack("F", pack("h*", "1000000000000ff7"));
'???';
-e syntax OK