Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
say B::svref_2object( \$x )-> flagspv;
say 1 if $x > 2;
say B::svref_2object( \$x )-> flagspv;
  2. or download this
    RMG,POK,OVERLOAD,pPOK,IsCOW
RMG,NOK,POK,OVERLOAD,pNOK,pPOK,IsCOW
RMG,IOK,NOK,POK,OVERLOAD,pIOK,pNOK,pPOK,IsCOW
  3. or download this
    GMG,POK,OVERLOAD,pPOK,IsCOW
getting...
GMG,POK,OVERLOAD,pPOK,IsCOW
getting...
GMG,IOK,POK,OVERLOAD,pIOK,pPOK,IsCOW
  4. or download this
    use strict;
use warnings;
...
say B::svref_2object( \$x )-> flagspv =~ /IOK/ ? 'i' : 's';
say $x > 2 ? '>' : '<';
say B::svref_2object( \$x )-> flagspv =~ /IOK/ ? 'i' : 's';