Help for this page

Select Code to Download


  1. or download this
    use Devel::Peek qw( Dump );

...
foo(undef);  # $x = undef
foo();       # undef $x
foo("pqr");
  2. or download this
    SV = PV(0x22612c) at 0x22606c
  REFCNT = 1
...
  PV = 0x22f4d4 "pqr"\0             New small (LEN=4) str buf.
  CUR = 3                             Same address as earlier
  LEN = 4                             is a coincidence.