http://www.perlmonks.org?node_id=1220174


in reply to Distiguishing arguments: number-strings vs real integer

See:

In your tests, you might want to add a case where both IOK and POK are set:

$ perl -MDevel::Peek -e 'my $x=0; $x eq 0 and Dump($x)'
SV = PVIV(0x1542e82) at 0x1548d10
  REFCNT = 1
  FLAGS = (IOK,POK,pIOK,pPOK)
  IV = 0
  PV = 0x1537840 "0"\0
  CUR = 1
  LEN = 10

[download]

In Section Seekers of Perl Wisdom