Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek -le'$|=1; $x=1; Dump $x; print "x=$x"; Dump $x'
SV = IV(0x816a438) at 0x814f6cc
...
  PV = 0x81651b8 "1"\0
  CUR = 1
  LEN = 4

Select or download this

sub reconstruct_toggle   { ... }
sub reconstruct_with_val { ... }
...
   bar => \&reconstruct_with_val,
   special => sub { ... },
);